$upload_dir = "C:\Program Files\Apache Group\Apache2\cgi-bin\test"; $query = new CGI; $filename = $query->param("data"); $email_address = $query->param("email_address"); $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("data"); open UPLOADFILE, ">$upload_dir/$filename"; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; open (FH, "<$filename"); print $query->header ( ); print <Thanks!</HEAD>

Thanks for uploading your data!

Your email address: $email_address

Your filename: $filename

end_TEST foreach $line () { print $line; print "\n"; } close (FH); print <