defined (my $pid = fork) or die "fork: $!";
if ($pid) {
  ## child
  exec '/bin/sh' or die "exec: $!";
}
## parent
sleep 10;
kill 2, $pid;