use Lingua::EN::Inflect 'inflect'; $n=shift||99; print inflect<