Select Code to Download

  package My::Handler;
  sub handler
...
     my $obj = $pkg->new();
     $obj->dispatch($action);
  }

  sub dispatch
...
     $self->do_the_appropriate_thing($action, $my_r);
  }