I'm confused by the replies you've received. Aren't you just after the sort of debugging info that is provided by Carp?

#!/perl -w 
use Carp;

a_test_sub();

sub a_test_sub {
    confess("uh oh");
}

__OUTPUT__
uh oh at test.pl line 7
        main::a_test_sub() called at test.pl line 4
[download]