> perl -de0
...
  DB<108> open my $x, ">", \$out; $h{k}=$x

  DB<109> $h{k}->print("bla")

  DB<110> p $out
bla
  DB<111> open FH, ">", \$out2; $h{k2}=FH

  DB<112> $h{k2}->print("bla")

  DB<113> p $out2
bla
  DB<114>