@filenames = param('files[]');

for ($filecount = 0; $filecount < @filenames; $filecount++)
{
    $upload_filehandle = upload('files[]');
    open ( UPLOADFILE, ">$upload_dir/$filenames[$filecount]" ) or die "$!";
    binmode UPLOADFILE;
    while ( <$upload_filehandle> )
    {
        print UPLOADFILE;
    }
    close UPLOADFILE;       
}