my $meth = $object->can("foo");
$meth->($object, $arg1, $arg2); # simulate $object->foo($arg1, $arg2);