use NEXT;

   package A;
   sub A::method   { print "$_[0]: A method\n";   
                            $_[0]->NEXT::method() }
   sub A::DESTROY  { print "$_[0]: A dtor\n";     
                            $_[0]->NEXT::DESTROY() }

   package B;
   use base qw( A );
   sub B::AUTOLOAD { print "$_[0]: B AUTOLOAD\n"; 
                            $_[0]->NEXT::AUTOLOAD() }
   sub B::DESTROY  { print "$_[0]: B dtor\n";     
                            $_[0]->NEXT::DESTROY() }

   package C;
   sub C::method   { print "$_[0]: C method\n";   
                            $_[0]->NEXT::method() }
   sub C::AUTOLOAD { print "$_[0]: C AUTOLOAD\n"; 
                            $_[0]->NEXT::AUTOLOAD() }
   sub C::DESTROY  { print "$_[0]: C dtor\n";     
                            $_[0]->NEXT::DESTROY() }

   package D;
   use base qw( B C );
   sub D::method   { print "$_[0]: D method\n";   
                            $_[0]->NEXT::method() }
   sub D::AUTOLOAD { print "$_[0]: D AUTOLOAD\n"; 
                            $_[0]->NEXT::AUTOLOAD() }
   sub D::DESTROY  { print "$_[0]: D dtor\n";     
                            $_[0]->NEXT::DESTROY() }

   package main;

   my $obj = bless {}, "D";

   $obj->method();         # Calls D::method, A::method, C::method
   $obj->missing_method(); # Calls D::AUTOLOAD, B::AUTOLOAD, C::AUTOLOAD

   # Clean-up calls D::DESTROY, B::DESTROY, A::DESTROY, C::DESTROY