#!/usr/local/bin/perl

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