sub foo {
    print "calling bar()", $/;
    bar();
}
sub bar {
    print "in bar()", $/;
    print "called by - ", (caller(1))[3], $/;
}
foo();

__output__

calling bar()
in bar()
called by - main::foo