for(<>){$s+=$_}print$s