use CGI;
$upload_dir = "/home/mywebsite/htdocs/upload";
$query = new CGI;
$filename = $query->param("photo");
$email_address = $query->param("email_address");$filename =~ s/.*[\/\\](.*)/$1/;$upload_filehandle = $query->upload("photo");
open UPLOADFILE, ">$upload_dir/$filename";
while ( <$upload_filehandle> )
{
print UPLOADFILE;
}
close UPLOADFILE;
print $query->header ( );
print <
Thanks!
Thanks for uploading your photo!
Your email address: $email_address
Your photo:
