Select Code to Download

# Warnings, strict and our aren't needed if you don't 
# want to bother. I Just like to have them
...
# what you'd have if you were going to use "do"
# A filed being required/used should return something true
1;

use Foo();
use strict;
...
foo;
our $c;
print $c;

package Foo;                 # This line is new
use strict;
...
}

1;

# Next line is different, explicitely say we want to use foo unqualifi
+ed (without Foo::)
use Foo qw(foo);            
...
# We could also have listed $c in the import list and then use plain $
+c
# But let's instead show you can still access it by qualifying 
print $Foo::c;