~ perl.snippets