use strict; use warnings; package x; use Exporter; my $VERSION = 1.00; my @EXPORT = (); my @ISA = qw(Exporter); my $a_template = "a12 a1 a4 a11 a2 a10 a12 a20 a15 a15 a1 a10 a1 a1 a1 a2 a2 a1 a3 a3 a9 a1 a15 a2"; @EXPORT = qw(xxx $a_template); sub xxx {print "in package x\n";} 1;