$obj->method(1, 2, 3);         # general case

if ($obj->can('method')) {
    print "Yep, \$obj has a method named 'method'\n";
}

if ($sub = $obj->can('method')) {
    $sub->($obj, 1, 2, 3);     # same effect as general case
}