package show; use vars qw(@ISA @EXPORT @EXPORT_OK); require Exporter; @ISA = qw(Exporter); @EXPORT = qw(show); @EXPORT_OK = qw(); sub show($$) { # ... } 1;