package A; require Exporter ; our @ISA = qw(Exporter); @EXPORT_OK = qw(suba); sub suba { print "suba\n" ; } 1 ;