my $pid=defined_or(fork(),die("Can't fork: $!"));
# always die()s, twice when fork() was successfully evaluated before die().