#!/usr/local/bin/perl 

$count = 0; 
print ("$count\n") while ($count++ < 5);