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