#!/usr/bin/perl -w
print "Please enter a number : ";
chomp($in1 = <>);
print "Please enter another number : ";
chomp($in2 = <>);
$conv1 = n2t($in1);
print "\u$conv1 plus " . n2t($in2);
print " equals " . n2t($in1 + $in2) . ".\n";

sub n2t
{
   @convert = qw(zero one two three four five six seven eight nine);
   if($_[0] <= 9 && $_[0] >= 0) {return $convert[$_[0]]}
   elsif($_[0] < 0 && $_[0] >= -9)
   {
      return "negative " . $convert[abs $_[0]] ;
   }
   else {return $_[0]}
}