Select Code to Download

{
   my $var;
}
# $var no longer exists.

package main;

...

print("$main::var\n");  # Prints 5.
#print("$var\n");       # Error!

$main::var = 1;

...
} # Restores saved value of $main::var.

print("$main::var\n");  # Prints 1.

package main;

...
} # Restores saved value of $main::var.

print("$var\n");      # Prints 1.

sub recursive {
   our $state;
...

   ...
}

my $var = 1;
our $alias;
*alias = \$var;
$alias = 2;
print("$var\n");   # 2