#######################
package A;
our $variable = 3;

#######################
package main;

{ # I want to localize the variable in this block
  local $A::variable;
  print "$A::variable\n";
}
print "$A::variable\n";