telnet与perl内联？

有没有一种方法允许perl启动telnet会话并以编程方式向该telnet会话发出命令

我最初尝试了一种愚蠢的方法：

commands.pl：

sleep(1);
print $command1;
sleep(1);
print $command2;

然后

> perl commands.pl | telnet www.host.com port

这是行不通的

有一个模块

（示例取自该页。）

有一个模块

---

（示例取自该页。）

一个选项将通过。

一个选项将通过

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
                      Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;