Select Code to Download

for ( "read", "only", "value" ) {
    print "$_\n";
    $_ = "test"; # blows up
}

sub foo { $_ = "test"; }

...
    print "$_\n";
    foo(); # blows up
}