Select Code to Download

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

my @files = $q->param('multi_files');
my @io_handles=$q->upload('multi_files');
...
        print "<b>Guess it's broken</b><br/>";
    }
}

my $type       = $q->uploadInfo( $upload_file )->{'Content-Type'};