#!/usr/bin/perl

my $sum = 0;

while(<>) {
    $sum += $_;
}
print $sum,"\n";