...
print FH $f;
...
print FH $b;
...

##</code><code>##

...
$printout .= $f;
...
$printout .= $b;
...
print FH $printout