#!/usr/local/bin/perl -w
# Do this forever.
for (;;)
{
print "Enter a word: ";
my $word1 = ; chomp $word1;
print "Enter another word: ";
my $word2 = ; chomp $word2;
if ($word1 eq $word2)
{
print "The two phrases are equivalent.\n";
}
elsif ($word1 lt $word2)
{
print "<$word1> is alphabetically less than <$word2>\n";
}
elsif ($word1 gt $word2)
{
print "<$word1> is alphabetically greater than <$word2>\n";
}
}