请教Net::Telnet的问题

请教高手，我在使用Net::Telnet操作交换机时，为啥不能抓取到执行命令返回的结果？getline、lastline、getlines都不行
而且还报time out，但Input_log拿到的日志看命令是执行成功了的
不解，不知道哪里搞错了，求教，谢谢！

$t->waitfor("/[Uu]sername/");
$t->print("user");
$t->waitfor("/ssword/");
$t->print("passwd");
$t->waitfor("/\>/");
$t->print("su");
$t->waitfor("/ssword/");
$t->print("passwd");
$get=$t->cmd("display brief int gi1/0/1");
$t->close;
#print "$ok";
#print $get1;
print $get;
#print $get2;
#print "$msg";

执行后报
command timed-out at telnet.pl line 22
--->22是$get=$t->cmd("display brief int gi1/0/1");

是不是忘了$ ....
$t->waitfor("/[Uu]sername/");
$t->print("$user");
$t->waitfor("/ssword/");
$t->print("$passwd");