#!/usr/bin/perl
 
use Net::Telnet;

my $telnet = Net::Telnet->new(Input_log => 'telnet.log');
 
$telnet->open('192.168.1.1');
$telnet->waitfor('/Account:/');
$telnet->print('admin');
$telnet->waitfor('/Password:/');
$telnet->print('admin');

sleep(1);

$telnet->waitfor('/>/');
my @lines = $telnet->cmd('wan vdsl show basic');


#print @lines;
$telnet->close;