use strict; use warnings; use 5.016;

my $n = $ARGV[0] or die "Give a damn! Give a number.";

require List::Util;
say List::Util::sum( 1 .. $n );