Select Code to Download

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

{
  my $action = "whatever";
  no strict 'refs';
  *{$action} = sub { my $pkg = shift; return $pkg->{$action}; };
}