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

foreach my $upload (@files){
    print "Upload this please -- $upload<br>";
    #my $upload_file  = $q->upload($upload);
    if ($upload){
        open (OUTFILE,">$upload_folder/$upload") or die $!;;
        binmode OUTFILE;
        while (<$upload>) {
            print OUTFILE;
        }
        close OUTFILE;
    }
    else {
        print "<b>Guess it's broken</b><br/>";
    }
}