Select Code to Download

say (caller(0))[0];

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

say [0];