Select Code to Download

c:\@Work\Perl\monks>perl -le
"use strict;
...
 sub foo (my $x) { my $x = 'hiya';  print $x; }
"
hiya

c:\@Work\Perl\monks>perl -le
"use strict;
...
Illegal character in prototype for main::foo : my$x at -e line 1.
main::foo() called too early to check prototype at -e line 1.
hiya