#!/usr/bin/env perl

use strict;
use warnings;
use List::Util qw(reduce);
use feature qw (say);

my $n = shift || die qq(Usage $0 [number]);

say reduce { $a + $b } 1 .. $n;

__END__