Select Code to Download

  # In Perl, I type:
...

  print STDERR "DBG 950($$): ([\%some_hash, \$some_scalar, \@some_list
+, some_func()]):\n\t", Dumper([\%some_hash, $some_scalar, \@some_list
+, some_func()]);

nmap <C-K> <ESC>!!print_perl_debug STDERR %<RETURN>:w<CR>

#!/usr/bin/perl -w

...
    }
}