package one; use strict; use warnings; use base qw(Exporter); our @EXPORT = qw(method1); sub method1 { print "method1\n"; } 1;