au BufWritePost *.pl,*.pm !perl -c %