Select Code to Download

BEGIN {
    *call_to_inspect = ( rand() < 0.5
...
        : sub (@) {}
    );
}

BEGIN {
    *call_to_query = ( rand() < 0.5
...

sub inspector { print wantarray ? 1 : 0, "\n" }
call_to_inspect(inspector());

>perl a.pl
1
...

>perl a.pl
1