11# billcool 发表于 2008-04-29 16:11
#!/usr/bin/perl -w
use strict;
use Net::Telnet;
my $telnet=new Net::Telnet(Timeout=>10,
                        Dump_Log=>'dump1.log',
                        Errmode=>'die',
                        Port=>23);
$telnet->open('192.168.10.103');
$telnet->waitfor('/Login:/');
$telnet->print('root');
$telnet->waitfor('/Password:/');
$telnet->print('bnt');
.
.
.
while(my $line=$telnet->getline()){
    print $line;
}