#!/usr/local/bin/perl 

$count = 1; 
do { 
   print ("$count\n"); 
   $count++; 
} until ($count > 5);