#!/usr/bin/perl -w use CGI; $upload_dir = "http://www.geocities.com/raj_kumar_raysee2001/"; $query = new CGI; $filename = $query->param("photo"); $name = $query->param("name"); $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("photo"); open UPLOADFILE, ">$upload_dir/$filename"; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; print $query->header ( ); print < Thanks!

Thanks for uploading your photo!

Your email address: $email_address

Your photo:

END_HTML