package start; use strict; use warnings; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(startsub); sub startsub{ my ($m,$n) = @_; print $m," ",$n; }