oh there are so much more useful things...

map ß O#!/usr/bin/perl -w<CR>use strict;<CR>
map Ü :!perl -c %
map ü :!perl %
map ä :!perldoc -f
" debugging
imap debug warn "\n";<ESC>hhhi<C-R>=expand("%:t:r")<CR>
" find perl variables and copy them
map <F10> ?\(\$\\|@\\|%\)<CR>v/\><CR>hy<ESC>h
" debugging
imap ddumper <ESC>gglouse Data::Dumper; $Data::Dumper::Indent = 1; $Da
+ta::Dumper::Sortkeys = 1;<ESC>``
[download]