[sf-perl] How to find out what script is calling a subroutine?

[Richard Reina]

If I have a script such as

#!/usr/bin/perl -w

sub record_info {

 # insert some into into a DB table

}
1;


Is there a way that the subroutine record_info can tell what perl script
called it so that it can also put that info in to the DB table?

Thanks very much for your help.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20080910/f7328a19/attachment.html>