(PackVar.pm):
package PackVar;
                                                                                
use base Exporter;
                                                                                
use vars qw(@EXPORT $Test);
                                                                                
@EXPORT = qw($Test);
                                                                                
$Test = 1;
                                                                                
1;


(test.pl):
use strict;
                                                                                
use PackVar;
                                                                                
print $Test,"\n";