package test0; use Exporter; our @ISA = qw( Exporter ); our @EXPORT_OK = qw( $data ); our $data = { .... }; 1; #### #! use strict; use warnings; my $pmfile = shift @ARGV; my $pm = eval "use $pmfile '\$data';"; die $@ if $@; my $pckg = $data;