say (caller(0))[0];

##</code><code>##

say $package, $filename, $line, $subroutine, $hasargs,$wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash,[0];

##</code><code>##

say [0];