#!/usr/local/bin/perl

for ($count = 1; $count <= 10; $count++) {
        print ("$count\n");
}
