test.pl
-------
use Blah;
print $Blah::a;

Blah.pm
-------
package Blah;
my $a = 3;