#!/usr/bin/env perl
use strict;
use warnings;

sub foo {
    my $name = (caller(0))[3];
    my $caller = (caller(1))[3];
    if ( defined $caller )
    {
        print "My name is $name and I was called by $caller.\n";
    }
    else
    {
        print "My name is $name.\n";
    }
}

sub bar {
    my $name = (caller(0))[3];
    my $caller = (caller(1))[3];
    if ( defined $caller )
    {
        print "My name is $name and I was called by $caller.\n";
    }
    else
    {
        print "My name is $name.\n";
    }
    foo();
    baz();
}

sub AUTOLOAD {
    my $name = (caller(0))[3];
    my $called = our $AUTOLOAD;
    my $caller = (caller(1))[3];
    if ( defined $caller )
    {
        print "My name is $name and I was called as $called by $caller.\n";
    }
    else
    {
        print "My name is $name and I was called as $called.\n";
    }
}

foo();
bar();
baz();
__END__
My name is main::foo.
My name is main::bar.
My name is main::foo and I was called by main::bar.
My name is main::AUTOLOAD and I was called as main::baz by main::bar.
My name is main::AUTOLOAD and I was called as main::baz.