my $max = 13;
my $speech = 0;
my $beer = "free";
while ($beer){
    ++$speech;
    die "No more beer" if $speech == $max;
}
[download]

The moral of the story is - as more free beer is provided, the free-er speech tends to become.