#!/usr/local/bin/perl

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