#!/usr/bin/perl -w
use strict;

package Mumma;
use vars qw( $AUTOLOAD );
sub AUTOLOAD { 
    print "$AUTOLOAD resolved to Mumma::AUTOLOAD\n"; 
}

package Poppa;
use vars qw( $AUTOLOAD );
sub AUTOLOAD { 
    print "$AUTOLOAD resolved to Poppa::AUTOLOAD\n"; 
}

# Baby doesn't know that Mumma & Poppa are secret AUTOLOADERs
package Baby;
use vars qw( @ISA $AUTOLOAD );
@ISA = qw( Poppa Mumma );   # Order is significant. 
sub new { bless {}, ref $_[0] || $_[0] }

package main;
use vars qw( $AUTOLOAD);

# Baby is supposed to live in a caring universe.
sub UNIVERSAL::AUTOLOAD { 
    print "$AUTOLOAD resolved to UNIVERSAL::AUTOLOAD\n";
}

my $c = Baby->new();

# first &AUTOLOAD found hides rest.
$c->wants_mumma();
$c->wants_poppa();
$c->wants_universal_truth();