#!/usr/bin/perl
# Marty Pauley sings "99 bottles of beer"
use Lingua::EN::Inflect 'inflect';
print inflect(<<"SING") for (reverse(1 .. 99));
        NO(bottle,$_) of beer on the wall,
        NO(bottle,$_) of beer,
        Take one down and pass it around,
        NO(bottle,@{[$_-1]}) of beer on the wall.
SING