tangetools/summer/summer

9 lines
78 B
Plaintext
Raw Normal View History

2013-04-07 12:03:20 +00:00
#!/usr/bin/perl
my $sum = 0;
while(<>) {
$sum += $_;
}
print $sum,"\n";