eval { 
          open (OUTFILE,">$upload_folder/$upload") or die $!;;
          binmode OUTFILE;
          while (<$upload_file>) {
              print OUTFILE;
          }
         close OUTFILE; 
         }; 
     print 'error:'.$@.'<br>' if $@;