Foo.pl
-------
#!/usr/bin/perl
use Bar;
print $Bar::Baz;

Bar.pm
-------
package Bar;
our $Baz=42;
-------

##</code><code>##

use vars qw($Bar);
$Bar=42;