Help for this page

Select Code to Download

Select or download this

sub wa {
    my $place = shift @_;
...
}

my $x = (wa('a1'),wa('a2'),wa('a3'));

Select or download this

>perl -MO=Concise script.pl
j  <@> leave[1 ref] vKP/REFC ->(end)
...
e                    <#> gv[*wa] s ->f
h        <0> padsv[$x:4,5] sRM*/LVINTRO ->i
script.pl syntax OK