my $pid;
if( $pid = fork ){
    # parent here
    # output web page and finish
}
elsif( defined($pid) ) {
    # child here
    # save info and exit
    exit(0);
}
else {
    # fork error
}