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