#!/usr/bin/perl

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

##</code><code>##

FOO
FOO
FOO

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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