package orig::functions; BEGIN { use Exporter (); use vars qw(@ISA @EXPORT_OK); @ISA = qw(Exporter); @EXPORT_OK = qw(func1 func2 func3); } sub func1 { print "hello"; } sub func2 { print "kind"; } sub func3 { print "world"; }