use IPC::Run qw/ run new_chunker /;

my @cmd = ('cat', '/usr/share/dict/words');
my $sum = 0;
run \@cmd, '>', new_chunker("\n"), sub {
		my $line = shift;
		chomp($line);
		$sum+=length $line;
	} or die $?;
print "$sum\n";