Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Season's Greetings

by silent11 (Vicar)
on Dec 21, 2008 at 20:40 UTC ( [id://731916] : poem . print w/replies, xml ) Need Help??

#!/usr/bin/perl while (our $year, $is, $ending){ my $wish, 2, @all_monks; @ISA, "Merry Christmas" or "Happy Hanukkah" or "Whatever" for @all_monks +; } continue { 2; join('me this', @$year) and bless \@all_monks, 'EveryWhere'; "With Season's Greetings"; } until ('next year') { "-Silent11" }