1 while print $fh "foo";