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

##</code><code>##

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

##</code><code>##

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