#!/usr/bin/perl -w
use strict;
use Number::Spell;
my $string=spell_number(8597);
print "$string\n";
-----
Result:
eight thousand five hundred ninety seven