#!/usr/bin/perl
use strict;
use warnings;
for (my $i=0;$i<=5;$i++)
{ 
    print "FOO\n"; 
}