my $pid = defined_or_die( fork(), "Can't fork: $!");

##</code><code>##

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