#!/usr/bin/perl -l
while( <> )
{
        $t += $_;
}
print $t;
