Select Code to Download

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump=pp -le
"sub S { print qq{in S: args }, pp \@_; }
...
Prototype mismatch: sub main::S: none vs () at -e line 1.
in S: args ["foo", "bar"]
outside S: $x == foo,  $y == bar