caller can be your friend too...

sub calltrace {
    my $i=-1;
    print "Caller Trace:\n\n";
    while ( caller(++$i) ) {
        printf("-> %s at line %s\n", (caller($i))[1,2]);
        }
    }
    exit(0);
}
[download]

call sub for a call trace to that point.

.02

cLive ;-)