Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Season's Greetings

by silent11 (Vicar)
on Dec 21, 2008 at 20:40 UTC ( #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" }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://731916]
Approved by ikegami
Front-paged by Arunbear
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (3)
As of 2017-11-25 11:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (355 votes). Check out past polls.

    Notices?