eval "sub $action { my \$pkg = shift; return(\$pkg->{\"$action\"}); }";