($package, $filename, $line, $subroutine,
     $hasargs, $wantarray, $evaltext, $is_require) = caller($i);

##</code><code>##

 ___
/\__\ "What is the world coming to?"
\/__/ www.wolispace.com