#!/usr/local/bin/perl -w

use strict;
use Lingua::EN::Numbers qw(American);

{
   my $v++;
   my $t=new Lingua::EN::Numbers(++$v);
   my $f=new Lingua::EN::Numbers($v*$v);
   print sprintf "Adding %s + %s = %s\n",$t->get_string,$t->get_string,$f->get_string;
}