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