perl - 下部の STDIN バー

Question

端末の下部 (irc クライアントのように) に STDIN バーを作成する方法を考えていました。着信 IRC データはすべて端末に表示されていますが、端末内で直接チャットできるようにしたいと考えています。私の言い回しはこれを少し混乱させるかもしれませんが、うまくいけば私の言っていることが理解できるでしょう。

これにはTKを使用したくありません。端末で常に待機している STDIN です。入力すると、メッセージが変数に格納され、$sock->print を使用して IRC に送信されます。