my $pid = fork();
   die "Ouch, can't fork: $^En\" unless defined $pid;
   unless ($pid) {
     ...
   }