package Dog;

sub pull_tail {
  $self->speak;
}

sub speak {
  print "Woof!\n";
}

package AngryDog;

sub speak {
  print "Grrrrr...\n";
}