use Lingua::EN::Numbers;

   my $n = new Lingua::EN::Numbers;
   $n -> parse (1281);
   print $n -> get_string, " fish in the sea.\n";

##</code><code>##

   use Lingua::EN::Numbers::Easy;
   print "$N{1281} fish in the sea.\n";