#!/usr/bin/perl -w

use strict;

sub a {
   print "a\n";
   b();
}

sub b {
   print "b\n";
   c();
}

sub c {
   print "c\n";
   my $file = (caller(0))[1];
   my $sub = (caller(0))[3];
   print "$file\t$sub\n";
}

a();

##</code><code>##

$ perl call.pl
a
b
c
call.pl main::c