use strict; use 5.6.0; package MyModule; use Exporter; our @ISA=qw(Exporter); our @EXPORT_OK = qw(foo bar); my $var1 = "Some value"; sub foo { ... # Maybe use $var1 here... } sub bar { ... # If not, use $var1 here. } 1;