open $OUT, ($^O eq 'MSWin32' ) ? '>CON' : ">/dev/tty"
        or croak "Cannot write to terminal: $!" if !$OUT;
    $OUT->autoflush(1);
    @prompt = $flags{ -prompt } if !@prompt and $flags{ -prompt };
    my $IN;
    if ($flags{-tty} || $flags{-argv}) {
        open $IN, ($^O eq 'MSWin32' ) ? '<CON' : ">/dev/tty"
            or croak "Cannot read from terminal: $!";
    }