use strict;
use warnings;
use Lingua::EN::Numbers qw(American);

	my $n = new Lingua::EN::Numbers(313721.23);

	print $n->get_string;
__END__
Three-Hundred Thirteen Thousand, Seven-Hundred Twenty-One point Twenty-Three