my $sub = eval "package $package; do '$file'";