Select Code to Download

my $pid = fork;
die "can't fork: $!" if ! defined $pid;
...
else {
    # child
}

use 5.010;

my $pid = fork // die "Can't fork: $!";
if ...

use 5.010;

...
        my $child_pid = $_;
    }
}

use 5.010;

...
        return qw( list context );
    }
}

return         wantarray ? qw( list context ) :
       defined wantarray ? 'scalar context';

return tfu( wantarray,
            true  => sub { 'true' },
...
           defined $value ? $todo_for{ false }->() :
                            $todo_for{ undef }->();
}