#!/usr/bin/perl
$sum=0;
$count=0;

for ($count =0; $count < 51; $count++)  {
	#$sum=$sum+$count;
	$sum += $count
};
print "$sum\n"