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();