my $pid = defined_or fork(), sub { die "Can't fork: $!" };