#!/usr/bin/perl
use Lingua::EN::CMUDict;
my $obj = new Lingua::EN::CMUDict;
my $string = $ENV{QUERY_STRING};
my $word = $string ? $string : $ARGV[0]; # remove word=
my $n = $obj->number_of_syllables($word);
print "Content-type: text/html; charset=utf-8\n\n";
print '';
print 'Using CMUDict from Perl
';
if ($n) {
print "$word has $n syllable(s).
";
my $pron = $obj->get_word($word);
print "$pron
";
} else {
print "$word not in cmudict";
}
print 'Arpabet: symbol table';
print "\n"