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