Select Code to Download

$y = 123;
sub f { print("$y\n"); }  # 456 or 123
...
__END__
456
123

my $x = 123;
sub f { print("$x\n"); }  # 123
...
__END__
123
123