请教如何在用NET：：TELNET模块时，获取远端设备的反馈信息

请教如何在用NET：：TELNET模块时，获取远端设备的反馈信息：
我初学PERL，并想用如上模块登陆远端交换机，但一始就遇到了麻烦，不知如何获取远端交换机反回的内容，所以后续需要做的模式匹配，数据取读等就没有的原始资料，请教个位老大，如下是我的测试角本：
#!c:\perl\bin


use Net::Telnet ();

my $uname;
my $pd;
my $t = new Net::Telnet;
my $s;
my $ok;
my $host="192.168.1.100";
my $port=23;
my @r;

        $uname="";
        $pd="xwadmincm";
        $s="password:";
       
        $t->open(host => $host,port => $port);
       
        $t->waitfor(/password[: ]*$/i);
        $t->print($pd);
        @r=$t->print("dis cur ");
        print @r;
   
    $t->close();

呵呵，反回是个“1”，好郁闷，先谢过。