package One;

sub AUTOLOAD {
    my $name = $AUTOLOAD;
    $name =~ s/^.*:://;
    *$name = sub { print "called $name inside ",__PACKAGE__,"\n" };
    goto &$name;
  }

package Two;
@ISA = qw(One);

package Main;

One->try1();
Two->try2();
$a = bless {}, Two;
$a->try3();

##</code><code>##

called try1 inside One
called try2 inside One
called try3 inside One
called DESTROY inside One