Select Code to Download

perl -nle '$t+=$_}{print$t'

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

perl -wnE '$s+=$_}{say$s'

Can't call method "say" without a package or object reference at -e li
+ne 1, <> line 2.

perl -wnE '$s+=$_;END{say$s}'

$ perl -MO=Deparse -wnE '$s+=$_}{say$s'

BEGIN { $^W = 1; }
LINE: while (defined($_ = <ARGV>)) {
...
}
-e syntax OK
$