Select Code to Download

use Carp qw(croak);
sub call_service {
...

   return $handler->(@args);
}

my $handler = \*{$name}{CODE};