use Lingua::EN::Inflect;


$word  = "the";
# UNCONDITIONALLY FORM THE PLURAL
print "The plural of house is ", Lingua::EN::Inflect::PL($word), "\n";


# ADD CORRECT "a" OR "an" FOR A GIVEN WORD:

print "Did you want ", Lingua::EN::Inflect::A($word), "\n";


# CONVERT NUMERALS TO WORDS (i.e. 1->"one", 101->"one hundred and one", etc.)
 # IN A SCALAR CONTEXT: GET BACK A SINGLE STRING...

# $words = NUMWORDS(1234);      # "one thousand, two hundred and thirty-four"
# $words = NUMWORDS(ORD(1234)); # "one thousand, two hundred and thirty-fourth"


 # IN A LIST CONTEXT: GET BACK A LIST OF STRINGSi, ONE FOR EACH "CHUNK"...

 #@words = NUMWORDS(1234);    # ("one thousand","two hundred and thirty-four")

