LINE: while(<>) { 
  perl -nle '$t+=$_}{print$t
}