package one; @ISA = qw(Exporter); @EXPORT = qw(method1); sub method1 { print "method1 greets hello"; } 1;