use Lingua::Num2Word;

my $numbers = Lingua::Num2Word->new;

my $text = $numbers->cardinal('en', 123);

print $text || "Can't convert number\n";