Select Code to Download

#!/usr/bin/perl -w

...
$sum += $_ for 1 .. $n;

print "$sum\n";

Sum(1..n) = n(n+1)/2

#!/usr/bin/perl -w

...
my $sum = $n * ( $n + 1 ) / 2;

print "$sum\n";