#!/perl/bin/perl

use strict;
use Net::Telnet();

my $telnet;

$telnet = new Net::Telnet ( Timeout=>10,
					
				Errmode=> 'return');

$telnet->open('ip_address')or die "failed to connect:$!"; 
$telnet->waitfor( -match => qr{ogin}  );
$telnet->print("username");
$telnet->waitfor( -match => qr{assword}  );
$telnet->print("password");
$telnet->input_log("C:\\log.txt");
$telnet->dump_log("c:\\dump.txt");


print("login successful");