$ cat lengthsum.pl 
#!/usr/bin/env perl
use warnings;
use strict;
use 5.022; # for double-diamond operator

my $sum = 0;
while (<<>>) {
	chomp;
	$sum+=length;
}
print "$sum\n";

$ cat /usr/share/dict/words | ./lengthsum.pl 
839677