Perl-->Telnet的使用

#!/usr/bin/perl -w


use Net::Telnet ();

$timeout = 20;
$port = 2003;
$host = '192.168.1.251';
$user = 'test';
$pw = '123456';

$t = new Net::Telnet (Timeout => $timeout,
                      Port    => $port);
$t->open("$host");
$t->login($user, $pw);
@lines = $t->cmd("who");
print @lines;


在版本perl-5.8.5下面可以顺利执行，但是在perl-5.10.0下面却不行执行，而且在网站里面找不到关于telnet相关的内容，估计是telnet协议比较老了!