# from http://perldoc.perl.org/IO/Handle.html
    $io = new IO::Handle;                   # indirect object notation!
    if ($io->fdopen(fileno(STDOUT),"w")) {
        $io->print("Hello");                # direct object notation!
    }