一个关于Net::telnet模块的问题！请各位帮忙！谢谢

最近我写了个程序，目的是要通过telnet方式远程登录到一些网络设备后，输入一些命令，并把相关结果取出，现进行进一步的处理，但在写的时候发现，有些命令在发到设备后，设备要分屏显示（即More的方式），而这些设备中又有部分无法使用“terminal length 0"来取消分屏显示，这样就造成了我无法通过$obj->cmd()命令发送命令，因为这样会造成等待超时。不知道各位有什么好的办法没？谢谢，非常感谢！
以下是我的子程序例子，也就是我有问题所在，谢谢！请各位一定帮忙！
use Net::Telnet ();

sub command_exec {
my ($obj,$command)=@_;
chomp($obj);
chomp($command);
my @command_output=$obj->cmd("$command");
return(@command_output);
}

顶一下！

可以问一下楼主是什么网络设备吗

如果是cisco的建议用net::telnet::cisco模块

是网络设备，思科、华为、中兴、贝尔、西门子的都有，不全是思科的，所以不能用net::cisco::telnet，请各位帮忙！