package Class1; sub new{bless {}, shift} sub hello{print "Hello Class1.\n"}package Class2; @ISA = 'Class1'; sub hello{print "Hello Class2.\n"} sub say_hello{ my $self = shift; $self->hello(); $self->SUPER::hello(); }package Class3; @ISA = …