appeler une methode depuis un tableau

Bonjour,

un peu nouveau en perl je voudrais de la même maniere que l'exemple suivante
appeler une methode d'un package au lieu d'un fonction :

test.pl :

my %T = (
"foo" => \&function;
);


&{$T{'foo'}};


En fait j'ai une classe construit de la manière suiuvante :

use Ctk::Conf::Control;

package Ctk::Control;

sub new {
my $object_or_class = shift;
my $params = shift;

my $class = ref($object_or_class) || $object_or_class;
my $self = {
server => (defined $params->{server})? $params->{server}: undef,
password => (defined $params->{password})? $params->{password}:
undef,
port => (defined $params->{port})? $params->{port}: undef,
sock => (defined $params->{sock})? $params->{sock}:
undef,
connected => FALSE,
};

bless $self, $class;

return $self;
}

et une methode générique qui doit appeler d'autres méthodes en fonction des
arguments passés :
sub add_domain{
my ($self, $params) = @_;
print "Do Job [$params->{action} $params->{domain}]";

return TRUE;
}
sub upd_domain{
my ($self, $params) = @_;
print "Do Job [$params->{action} $params->{domain}]";

return TRUE;
}
sub del_domain{
my ($self, $params) = @_;
print "Do Job [$params->{action} $params->{domain}]";

return TRUE;
}

sub do_job {
my ($self, $params) = @_;

print "Do Job [$params->{action} $params->{domain}]";

my $cmds = {
'Insert' => {function => "add_domain"},
'Update' => {function => "upd_domain"},
'Delete' => {function => "del_domain"},
};

if ($cmds->{$params->{action}}) {
$f = "$cmds->{$params->{action}}->{function}($params)";
ctklog ( "F=$f");
eval $f;
}
return TRUE;

}

Test.pl :
*****
use Ctk::Control;
use Ctk::Conf::Control;

my $obj_Control = new Ctk::Control(SMTP)
or ctkdie ("cannot create Control object");

$obj_Control->connect_to_server()
or ctkdie ("error: cannot connect to SMTP server");

$obj_Control->do_job($params_sql)
or ctkdie ("error : cannot do job");

$obj_Control->disconnect();

}

Ceci ne fonctionne pas et je commence vraiment à m'arracher les cheveux :-).
En fait, j'arrive bien dans la methode do_job, mais là j'obtiens un message
comme quoi les methodes add_domain, upd et del n'existe pas pour l'objet
Ctk::Control !!!

Merci d'avance