Hi webchalkboard, Try this example in module description,

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
[download]

You appear to be using an obsolete interface. 'American' no longer exists (and it should be 'British' anyway), and num2en is much more appropriate than the object.

Here's how it would look like using a modern vesion of the module, including the addition of pounds and pence as per the OP's request.

use Lingua::EN::Numbers qw( num2en );

my $en = num2en(313721.23);

my ($pounds, $pence) = split(/ point /, $en);

if ($pounds eq 'One') {
   $pounds .= ' pound';
} else
   $pounds .= ' pounds';
}

$pence ||= 'Zero';
$pence .=  ' pence';

$en = "$pounds and $pence";

print("$en\n")
[download]

Untested.

No sorry didn't search first... will make sure I do next time, i'm usually quite good at that, I guess this time I didn't think my request was all that common, but I should have checked first. Atleast now there is another thread with the same info in so users in the future will find the answers even easier :)

Many thanks,
Tom

use strict;
use warnings;

my (@units, @numbers, @teens, @tens, @thousands, @nums, $i);

@units = qw/pound pounds pence pence/;
@nums = qw/zero one two three four five six seven eight nine ten
           eleven twelve thirteen fourteen fifteen sixteen seventeen e
+ighteen nineteen/;
@tens = qw/ten twenty thirty forty fifty sixty seventy eighty ninety/;
@thousands = qw/thousand million billion trillion/;

for $i (1..8) {
    push @nums, $tens[$i];
    push @nums, "$tens[$i]-$nums[$_]" for 1..9;
}
for $i (1..9) {
    push @nums, "$nums[$i] hundred";
    push @nums, "$nums[$i] hundred $nums[$_]" for 1..99;
}

sub wordnum {
    my ($n, $num, $dec, $bunit, $sunit, @num, $out, $i) = $_[0];
    ($num, $dec) = split /\./, $n;

    $bunit = ($num == 1 ? $units[0] : $units[1]);
    $sunit = ($dec == 1 ? $units[2] : $units[3]);

    $dec = "$bunit and $nums[$dec] $sunit";
    return "$nums[0] $dec" if $num == 0;

    $out = $dec;
    $num -= 0; $num = ' ' . $num while length($num) % 3;
    push @num, $1 while $num =~ /(...)/g;
    @num = reverse @num;
    for ($i = 0; $i <= $#num; $i++) {
        next if $num[$i] == 0;
        $out = $nums[$num[$i]] . ($i ? " $thousands[$i-1]" : '') . ' '
+ . $out;
    }
    return $out;
}

for (1..20) {
   $_ = (int rand 5000) . '.' . (int rand 100);
   print "$_ = " . wordnum($_) . "\n";
}
[download]