adding values from a file in perl?

[reinstein]

here is an example text file;

test goat 894
test cat 239
test rug 931
pet frog 352

how can i add up the values in the third column and display the total?

 

[martinthurn]

my $iTotal = 0;
while (my $sLine = <>)
{
my ($junk1, $junk2, $i) = split /\s+/, $sLine;
$iTotal += $i;
}
print $iTotal;