#!perl -n
use strict;
use warnings;
# USAGE:  perl np.pl <np.dat
BEGIN{
    our $total = 0;
}

our $total;
$total += $_;

END{
    our $total;
    print $total
}