awk '{s += $0} END {print s}'

perl -le '$"="+"; print eval "@{[<>]}"'