#!/usr/local/bin/perl
$count = 0;
print ("$count\n") while ($count++ < 5);
