package Module; use warnings; use strict; use vars qw(@ISA @EXPORT_OK ); @ISA = qw(Exporter); # inherit the import() from Exporter.pm @EXPORT_OK = qw(); # list of things to export if asked to sub import(\@_) { print "You gave me (@_ )\n"; print "$_[0] $_[1]\n"; } 1;