$main::var = 1;

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

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