DB<47> open $fh,">-"

  DB<48> say $fh "bla"
bla

  DB<49> say "bla"
bla

  DB<50> close STDOUT

  DB<51> say $fh "bla"

  DB<52>

##</code><code>##

  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>