Select Code to Download

perl -naF, -e "$t += $F[1]; eof and print $t;" siteperf.txt

while ( <> ) {
    @F = split ',';
...
    eof and print $t;
}
# Usage: perl mytally.pl siteperf.txt

perl -naF, -e"$t+=$F[1];eof&&die$t" test.txt