#!/usr/bin/perl -w

 use CGI;

 my $upload_dir = "/tmp/jobs";

 my  $query = new CGI;

 my $filename = $query->param("photo");
 my $email_address = $query->param("email_address");
 $filename =~ s/.*[\/\\](.*)/$1/;
 my $upload_filehandle = $query->upload("photo");

 open UPLOADFILE, ">$upload_dir/$filename";

 binmode UPLOADFILE;

 while ( <$upload_filehandle> )
 {
   print UPLOADFILE;
 }

 close UPLOADFILE;