Select Code to Download

perl -e 'package B;
 sub foo {};
...
  print "$_: "
   .(A->can($_) == B->can($_) ? " same" : " overwritten")
   ."\n"}'

foo:  same
bar:  overwritten
baz:  overwritten