Select Code to Download

our $foo = "foo";
{
...
    }
}
quz();  # prints "$foo = foo"

our $foo = "foo";
{
...
    $foo = "foo";
}
quz();  # prints "$foo = foo"

#!/usr/bin/env perl
use warnings;
...
Subroutine main::bar redefined at local_ex.pl line 15.
orig foo
local bar

our $bar = "BBB";
sub foo { print "orig foo (bar=$bar)\n" }
...
    baz();  # first call to baz
    quz();  # second call to quz (OOPS, $bar is still undef!)
}