$FORM{upload_name} = $cgi -> param ('upload');
my $temp = $cgi -> upload ('upload');
if ($temp) { while (<$temp>) { $FORM{upload} .= $_ } }