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