Select Code to Download

# obtain CODEref info
sub coderef_info {
...

use Data::Dumper;
print Dumper(coderef_info(\&addem));

$VAR1 = 'main';       # package name
$VAR2 = 'addem';      # subroutine name
...
    print join(\':\', caller);
    ($package, $filename, $line) = caller;
}';