my $pid = fork();
die "failed to fork: $!" unless defined $pid;
unless ($pid) {
   # child
   die;
}
# parent