{
   local $Carp::Verbose = 1;
   carp(...);
}

##</code><code>##

sub bar {
   print our $var, "\n";  # Prints 2
}

sub foo {
   local our $var = 2;
   bar();
}

our $var = 1;
foo();