#!/usr/bin/perl

for ($i=0,$i<=5,$i++)
{ 
    print "FOO\n"; 
}