#!/usr/local/bin/perl

    use integer;
    shift;
    while (<>) { $tot += $_ }
    print "$tot\n";


##</code><code>##

    #!/usr/bin/perl -pl

    $tot += $_ }{ $_ =+ $tot