#! perl -sl
use List::Util qw[ sum ];

our $N //= 10;

print sum( 1 .. $N );