use Lingua::EN::Numbers;
use strict;

my($numberObject);


$numberObject = Lingua::EN::Numbers->new;

$numberObject->parse(1234);

print $numberObject->get_string . "\n";