#!/usr/local/bin/perl

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