perl -e 'package It; sub doit{return pop}; $foo="It"; print($foo->can("doit")?"y":"n")'