perl -le '$sum += $_ for @ARGV; print $sum' -- 1 2 3 4 5 6 7 8 9 10perl -le '$x+=$_ for@ARGV;print$x' -- 1 2 3 4 5 6 7 8 9 10
perl -le 'while($x=shift){$_+=$x}print' -- 1 2 3 4 5 6 7 8 9 10
perl -le '$"=q{+};s//"@ARGV"/ee;print' -- 1 2 3 4 5 6 7 8 9 10