1 while print $fh "foo";

##</code><code>##

print $fh "foo" while 1;