- or download this
# file Foo.pm
use strict;
...
sub foo {
return $bee++;
}
- or download this
# some other file Bar.pm
use strict;
...
sub bar {
return $bee;
}
- or download this
# file Foo.pm
package Foo;
our $blah = 2; # or use vars
- or download this
#file Bar.pm
package Bar;
print $Foo::blah;