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