my $pid = fork();
if (!defined($pid)) {
  print "Could not fork!\n";
} elsif ($pid) {
  print " child pid was $pid\n";
} else {
  print "I am the child\n";
}