my $method = "build_a_kite";
if ($obj->can($method)) {
    print "We can!";
}
else {
    print "We can't...";
}