while(<>){$s+=$_}print $s,"\n"