#!/usr/bin/perl -w #Create initial feedback page
use CGI ':standard';

my $query=new CGI;

print $query->header("text/html");
print $query->start_html(-title => "This is my first web page generated via CGI");
print $query->h1('This is the header document');
print <<EOF;
This is the body of the document<br/>
What goes in here is really anything you wish to put in here<br/>
EOF
if ( my $pid = fork() ) {
   system ("./sleepme.pl");
   exit; # This current process
} else {
   print $query->end_html;
}