#!/usr/bin/perl -w

use strict;

my $i = 1;
my $s = 0;

while ($i <= 10) {
  $s = $s + $i;
  $i = $i + 1;
}

print "$s\n";