unless(defined(my $pid = fork)) {
  die "Could not fork: $!";  #fork failed
} elsif($pid) {
  sleep 1;                   #parent
  kill 9, $pid;
  wait;
} else {
  print "Yay!\n" while 1;    #child
}