Perl na wesoło

Już od dłuższego czasu o tym myślałem, chyba nie mam wyjścia :)