Select Code to Download

my $example = new B;
if( $example->can( "a3" ) {
  $example->a3(); # @$*&%! Still there.
} else {
  print "Successful disinheritence!\n";
}