9 lines
78 B
Perl
Executable file
9 lines
78 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
my $sum = 0;
|
|
|
|
while(<>) {
|
|
$sum += $_;
|
|
}
|
|
print $sum,"\n";
|