#!/usr/bin/perl
$| = 1;
$SIG{CHLD}='IGNORE';

print "Content-type: text/plain", "\n\n";
print "We are about to create the child!", "\n";
my $pid=fork;

if (!defined($pid)) { print "Fork Failed! ($!)\n"; }
elsif($pid>0)
{
  print <<End_of_Parent;
I am the parent speaking. I have successfully created a child process.
The Process Identification Number (PID) of the child process is: $pid.
The child will be cleaning up all the files in the directory. It might
take a while, but you do not have to wait!
End_of_Parent

} else {
  close (STDOUT);
  exec("sleep 100");
  exit(0);
}
print "I am the parent again! NOAow it is time to exit.", "\n";
print "My child process will work on its own! Good Bye!", "\n";