RosettaCodeData/Task/Number-names/Perl/number-names.pl

use Lingua::EN::Numbers 'num2en';

print num2en(123456789), "\n";