#!/usr/bin/perl

use strict;
use warnings;

my $total = 0;

while ( <> ) {
   $total += $_;
}

print $total, "\n";