Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

xmas.pl

by ciderpunx (Vicar)
on Dec 21, 2004 at 12:57 UTC ( [id://416448] : poem . print w/replies, xml ) Need Help??

happy solstice/xmas/whatever folks
#!/usr/bin/perl # xmas.pl: yeh its cheesey, i know. while ( $shepherds{'watched'}==$flock && bynight() ){ $shepherds{'seated'}='ground'; $angel_of_the_lord--; foreach(@around) {$_=$glory{'shone'};} } sub bynight() { ($s ,$m ,$hour)=localtime(time); 1 if $hour>19 || $hour<6; }