# Collection of code snippets by Arne Vajhøj 
# (likely posted to comp.os.vms/INFO-VAX, INFO-TPU, MACRO32, eksperten.dk, newz.dk, LinkedIn or other place sometime between 1990 and now) 
open(F, "num.txt");
$sum = 0;
while($line = <F>) {
    $sum = $sum + $line;
}
close(F);
print "Sum=$sum \n";
