# file Foo.pm
use strict;
package Foo.pm
my  $bee = 2; # lexical variable

sub foo {
 return $bee++;
}

##</code><code>##

# some other file Bar.pm
use strict;
package Bar;
sub bar {
  return $bee;
}

##</code><code>##

# file Foo.pm
package Foo;
our $blah = 2; # or use vars

##</code><code>##

#file Bar.pm
package Bar;
print $Foo::blah;