You'll probably be interested in node 99 Bottles Of Beer (can't we do better).

Just cause I'm chirpy today, I'll reprise my not-very-terse solution:

#!/usr/bin/perl

$bc = abs(shift || 100);

$p_sub = sub { 'Take ' . (shift == 1 ? 'it' : 'one') .
                " down, pass it around,\n" };
$b_sub = sub { 'bottle' . (shift != 1 ? 's' : '') };
$c_sub = sub { $_ = shift||'No'; "$_ " . &$b_sub($_) . ' of beer' };
$w_sub = sub { &$c_sub(shift) . " on the wall"; };
$sub   = sub { $_ = shift; print &$w_sub($_), ",\n", &$c_sub($_),
               ",\n", &$p_sub($_), &$w_sub(--$_), ".\n\n" };

map(&$sub($_), reverse(1 .. $bc));
print "burp!\n";
[download]

Matt