$c=0;while(<>){$c+=$_}print$c