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