unless ($pid = fork) {
  unless (fork) {
    close (STDOUT);
    foreach (@emaillist) {
      if (check_email($_)) { 
        open(MAIL,"|$mailprog -t") || print "Can't open $!";
        print MAIL "To: $_\n";
        print MAIL "Reply-to: $adminemail\n";
        print MAIL "From: $adminemail\n";
        print MAIL "Subject: $subject\n";
        print MAIL "\n$body\n";
        close(MAIL);
      }
    }	
    &process_complete;					
    exit(0);
  }
  print "Content-type: text/html \n\n";
  print "Sending emails in the background. close your
         browser";
  exit (0);
}
waitpid($pid,0);