use strict; use Lingua::EN::Nums2Words; print &num2word(12345)."\n"; print &num2word_ordinal(12345)."\n";