#!/usr/bin/perl -w
# pic 3.14: fig03_14.pl
# Анализ результатов продаж

# Этап инициализации
$Sum = 0;
$Number = 1;

while ( $Number < 11 )
   {
      $Sum+= $Number++;
   }
# Этап заключительный

print "\nSum from 1 to 10 is equally: $Sum.\n";