#!/usr/bin/perl
#This program counts from 1 to 10
my $count = 1;
while($count <= 10) {
  print $count,"\n";
  $count++;
}