Select Code to Download

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

sub class_method { 
  my $proto = shift; 
...
  # do stuff ...

}