$EXP = `/home/〜/***.exp [引数1] [引数2]`;
みたいな形でPerlでexpectファイルを実行してその結果を変数$EXPに入れてる

この.expファイルではTelnetで別マシンにログインしてそこで実行したコマンドと
その結果を全て変数内に入れるようにしてるんだけど
この.expファイルを全てNet::Telneｔを使ってwaitforとprintで対話式に書いたPerlのファイルに書き直したい。

expectを使った場合は[user@domain] #なども含めてプロンプトで表示される内容全てが
返ってくるけどそれと同じようにNet::Telnetを使った場合でもログインからログアウトまでの
プロンプトの表示内容全てが返ってくるようにしたいんだけど何か簡単な書き方はない？
waitforの部分全てを変数に入れてprintしても全てが出されるわけじゃないしどうしたらいいか分からない。