tangetools/summer/summer
2013-04-07 14:03:20 +02:00

9 lines
78 B
Perl
Executable file

#!/usr/bin/perl
my $sum = 0;
while(<>) {
$sum += $_;
}
print $sum,"\n";