http://www.perlmonks.org?node_id=590963

Hello!

Here ist my perl christmas poetry. perl produces no error if using the perl version which is listed after the __END__ line :)

#!/usr/bin/perl Christmas:{time;#!!! Children: do tell $wishes; Santa: for $each (@children) { BEGIN { read $each, $their, wishes and study them; use Memoize#ing } use constant gift, 'wrapping'; package Gifts; pack $each, gift and bless $each and goto deliver or do import if not local $available,!!! HO, HO, HO; redo Santa, pipe $gifts, to_childs; redo Santa and do return if last one, is, delivered; deliver: gift and require diagnostics if our $gifts ,not break; do{ use NEXT; time; tied $gifts} if broken and dump the, broken, ones; The_children: sleep and wait for (each %gift) and try { to => untie $g +ifts }; redo Santa, pipe $gifts, to_childs; redo Santa and do return if last one, is, delivered; The_christmas_tree: formline s/ /childrens/, $gifts; alarm and warn if not exists $Christmas{ tree}, @t, $ENV{HOME}; write <<EMail to the parents to buy a new christmas tree!!!!111 and send the EMail ;wait and redo deliver until defined local $tree; redo Santa, pipe $gifts, to_childs; redo Santa and do return if last one, is, delivered;} END {} our $mission and do sleep until next Christmas; } __END__ This is perl, v5.8.8 built for i386-freebsd-64int (with 1 registered patch, see perl -V for more detail)
Paul C. Buetow - http://paul.buetow.org