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

##</code><code>##

my @files = $q->param('multi_files');
my @io_handles=$q->upload('multi_files');

foreach my $upload(@files){
    print "Upload this please -- $upload<br>";
    my $upload_file  = shift @io_handles; 
    if ($upload_file){
        eval { 
          open (OUTFILE,">$upload_folder/$upload") or die $!;;
          binmode OUTFILE;
          while ( my $bytesread = $upload_file->read($buffer,1024) ) {
            print OUTFILE $buffer;
          }
          close OUTFILE; 
       }; 
     print 'error:'.$@.'<br>' if $@; 
    }
    else {
        print "<b>Guess it's broken</b><br/>";
    }
}

##</code><code>##

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