DB<102> open $x, ">", "/tmp/tst";

  DB<103> $x
 => \*main::$x

  DB<104> STDIN
 => "STDIN"

  DB<105> \*STDIN
 => \*main::STDIN