$ perl -le '$sum += 1 for 1..40; print $sum'
40