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

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; }