#!/usr/local/bin/perl 

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