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