package Me;
# ...
sub hello {
  my $self = shift;
  $self->Dad::hello();
  print "I'm just a WILD AND CRAZY GUY!\n";
}