my @files = $q->param('multi_files');
my @io_handles=$q->upload('multi_files');
foreach my $upload(@files){
print "Upload this please -- $upload
";
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:'.$@.'
' if $@;
}
else {
print "Guess it's broken
";
}
}