package My::Module; BEGIN { use Exporter (); @ISA = qw(Exporter); @EXPORT_OK = qw(testsub); } sub testsub { # new definition for subroutine return "module subroutine"; } 1;