ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/caller

Text File | 1992-10-18 | 139 b | 8 lines

($package, $filename, $line) = caller;

$i = 0;
while (($pack, $file, $line, $subname, $hasargs, $wantarray)
  = caller($i++)) {
    ...
}