# Collection of code snippets by Arne Vajhøj 
# posted to eksperten.dk, usenet and other places (2002-now) 
open(F, "num.txt");
$sum = 0;
while($line = <F>) {
    @parts = split(/\./,$line);
    $sum = $sum + ($parts[0]*100 + $parts[1]);
}
close(F);
$sum1 = ($sum - $sum % 100) / 100;
$sum2 = $sum % 100;
$res = sprintf("%d.%02d",$sum1,$sum2);
print "Sum=$res\n";
