#!/usr/bin/perl
#
# do pre fork stuff here
#
if (fork) {
     #
     # Damn browser, go away!
     #
     print "Location: http://www.wherever.com/blah\n\n";
     exit;
}
#
# do post forking stuff here
#