Perl debug output

Perl debug output:


say( __LINE__ .' # DEBUG # Sub: '. (caller(0))[3] . '$var: '. Dumper( \$var ) );