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