use Exporter(); @ISA=qw(Exporter); @EXPORT_OK=qw(sub1 sub2 sub3 ... subn); #### use Symbol::List; @EXPORT_OK = Symbol::List::symbols('CODE');