Some Perl Poetry