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;
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg