# One stroke improvement on (-ugene. ^.^
perl -le '$_=join 0,1..9x4;y/0/+/s;print eval'

# And a couple of longer ones for fun.
perl -le 'print eval join"+",map/[^0]+/g,1..9x4'
perl -le 's}}join"+",map/[^0]+/g,1..9x4}ee;print'
perl -le 's;;$%x9998;e;s;;++$%;eg;y;0;+;s;print eval'