open UPLOAD, ">$tmp_file";
while ( <$upload_file> ) {
  print UPLOAD;
}
close UPLOAD;

print "Location: my_webpage_goes_here.htm\n\n";

my $pid = fork;
$pid = 0 unless defined $pid;   # be the kid if fork failed
exit 0 if $pid;

processing code on file goes here
including subroutine to perform nslookup to verify email address
&VerifyEmailAddress($email);

my $mailprog = '/usr/sbin/sendmail';
open(MAIL,"|$mailprog -t");
sending email code goes here