Untitled

    $readfh = IO::Handle->new();
    $writefh = IO::Handle->new();
    my $pid = open2($readfh, $writefh, $INTERP, "$GAMEDIR/$game");
    print "started frotz: pid $pid\n";
    if($pid > 0) {
        $games[$nick]['pid'] = $pid;
        $games[$nick]['name'] = $game;
        $games[$nick]['in'] = $readfh;
        $games[$nick]['out'] = $writefh;
        $games[$readfh]['nick'] = $nick;
        set_nonblock(readfh);