test.pl
---
#!/usr/bin/perl -w
use strict;

use Blah qw($bar test);

$bar = 4;

test();



Blah.pm
-----
use strict;
package Blah;
require Exporter;
use vars qw(@ISA @EXPORT_OK $bar);
@ISA = qw(Exporter);
@EXPORT_OK = qw($bar test);

sub test {print $bar};
1;