Help for this page
DB<47> open $fh,">-" ... DB<51> say $fh "bla" DB<52>
DB<53> say "bla" bla ... DB<57> say $fh "bla" DB<58>