DB<53> say "bla"
bla

  DB<54> $fh=\*STDOUT # copy

  DB<55> say $fh "bla"
bla

  DB<56> close STDOUT

  DB<57> say $fh "bla"

  DB<58>