$pid = fork();

if (!defined $pid) {
  print "Fork failed: $@";
} elsif ($pid) {
  print "I am the parent, my PID is $$ and my child's PID is $pid\n";
} else {
  print "I am the child, my PID is $$ and my parent's PID is " . getppid() . "\n";
}