$FORM{upload_name} = $cgi -> param ('upload');
if(my $temp = $cgi -> upload ('upload'))
{
  local $/ = undef;
 $FORM{upload} = <$temp>;
}