package main;

our $var;
$var = 1;

{
   local $var;        # Saves current value of $main::var
                      # and sets new value to undef.
  
   $var = 2;
} # Restores saved value of $main::var.

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