package packe; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw($camel %wolf ram); # exported by default sub ram { print "ram\n"; } $camel = "camel"; %wolf = ( 'wolf' , 2 ); 1;