my $method='test';
my $cmd=sub{ $obj->$method(@_) };