#!/usr/bin/perl use CGI; $query = new CGI; $filename = $query->param('photo'); #remove slashes $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload('photo'); open UPLOADFILE, ">>/path/to/$filename" ; binmode UPLOADFILE; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; print $query->header( ); print < Thanks!

Thanks for uploading your file!

Your photo:

EOM ####
Photo to Upload: