#!/usr/bin/perl
#
#disable buffering
#
$| = 1;
#
# prefork stuff
#
if (fork) {
     #
     # stuff to display to user.  other processing that
     # the user needs to see, ect.
     #
     print "Content-type: text/html\n\n";
     print "Done";
}
#
# Close STDOUT;
#
close STDOUT;
#
# work in the background
#