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>