#! use strict; use warnings; my $pmfile = shift @ARGV; my $pm = require "$pmfile"; no strict 'refs'; my $pckg = ${ $pm . "::data" }; use strict;