perl -ple '$_=$s+=$_'