);
print( '*' x 80, "\n" );
-print( (qw/draven fordmason naughton sri the_jester/)[ int( rand(5) ) ],
- " is the greatest and gabb is drunk again!\n" );
+print( (qw/chansen draven fordmason naughton sri the_jester/)[ int( rand(6) ) ],
+ " is the greatest and gabb is ",
+ ((localtime)[2] > 12 ? "drunk" : "hung over"), " again!\n" );
print( '*' x 80, "\n" );
eval "use mod_perl; use Apache::Request";