Perl

# Print words to '99 Bottles of Beer' -- S. Tanimoto

$w = " on the wall";

$t = "\nTake one down and pass it around, ";

for (reverse(1 .. 99)) {

print b($_),"$w, ",b($_),". ",$t,b($_-1),"$w.\n"; }

sub b() { ($n) = @_;

$p = ($n != 1) ? "s" : ""; "$n bottle$p of beer"; }