Help for this page

Select Code to Download


  1. or download this
    
sub init
...
    our ($foo);
    $foo++;     # same variable, $main::foo, as in init
}
  2. or download this
    sub dec
{
    $foo++;     # not allowed because $foo not declared
}
  3. or download this
    init(); inc(); inc(); inc();
($main::foo == 3) && print "Three!\n";