1#! /usr/bin/perl -ws 2 3use Lingua::EN::Inflect qw { &inflect &classical }; 4use vars qw { $classical $modern }; 5 6classical if $classical && !$modern; 7 8print "inflect> "; 9while (<>) 10{ 11 chomp; 12 exit if /^\.$/; 13 if (/^\-classical$/) { classical ; print "[going classical]"} 14 elsif (/^-modern$/) { classical 0; print "[going modern]" } 15 else { print inflect $_ } 16 print "\ninflect> "; 17} 18