test.pl
---
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw($bar);

use Blah qw($bar);

$bar = 4;

Blah::test();


Blah.pm
-----
package Blah;
sub test {print $bar};
1;