Select Code to Download

sub _defined {
   if (defined($_[0])) {
...
}

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

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