use Exporter; our @ISA = 'Exporter'; our @EXPORT = qw($VAR1 $VAR2); our $VAR1="var1"; our $VAR2="var2"; 1;