Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Free Beer?

by the_slycer (Chaplain)
on May 22, 2001 at 08:40 UTC ( [id://82160] : note . print w/replies, xml ) Need Help??


in reply to Free Beer?
in thread PM Drinking Game

my $max = 13; my $speech = 0; my $beer = "free"; while ($beer){ ++$speech; die "No more beer" if $speech == $max; }
The moral of the story is - as more free beer is provided, the free-er speech tends to become.