package MyModule; our @EXPORT_OK = qw/do_something do_something_else/; my $FOO; sub import { my ($class, %config) = @_; $FOO = $config{'foo'}; } sub do_something { if ($FOO eq 'foo') { # do something here } else { # do something else } } sub do_something_else { if ($FOO eq 'foo') { # do something else here } else { # do something other than else } } 1;