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

use strict ;

use Text::numbers ;

my @numbers = (

0, -15, 1, 5, 8, 23, 145, 1_024, 23_456, 61, 15, 65536, 9872334

) ;

my $number = 0 ;

foreach $number (@numbers) {
	print 'The number ', $number, ' in words is ',
		Text::numbers::as_words ($number), "\n" ;
}