Select Code to Download

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

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

our $var = 1;
foo();