#!
use strict;
use warnings;

my $pmfile = shift @ARGV;
my $pm = eval "use $pmfile '\$data';";
die $@ if $@;

my $pckg = $data;