Random Perl snippets