print $fh "foo" while 1;