$ perl -e '$sum += length($_) for ( 1..1000000 );print $sum'