Select Code to Download

sub test_a {
   my $var = "Hello World\n";
...

test_a();
print($var);  # Doesn't print Hello World.

sub test_a {
   local $var = "Hello World\n";
...

test_a();
print($var);  # Doesn't print Hello World.

sub test {
   $_ = $_[0];
...

$ perl script.pl
Modification of a read-only value attempted at script.pl line 3.

sub test {
   local $_ = $_[0];
...
A
B
C