#!/usr/bin/perl

# initialize vars
$sum = 0;
$start = 1; $end = 10;

# loop through numbers
for ($i = $start; $i <= $end; $i++) {
	$sum = $sum + $i;
};

# print sum to terminal
print "Sum of integers from $start to $end is $sum\n";
