$VAR1 = 'main';       # package name
$VAR2 = 'addem';      # subroutine name
$VAR3 = 'coderef.pl'; # filename
$VAR4 = 2;            # line number where sub was defined
$VAR5 = '{            # subroutine code as string
    ($value1, $value2) = @_;
    $value1 + $value2;
    print join(\':\', caller);
    ($package, $filename, $line) = caller;
}';