print $fh $foo;