use Net::Telnet;
use strict;

$Telnet::Exp_Internal = 0;
$Telnet::Log_Stdout   = 1;


my $host = 'x.x.x.x';
my $user = 'root';
my $pwd = 'pswd';
my $prompt = '[login]';
my $telnet;
my $output;

$telnet = Net::Telnet->new(Host=>$host,Prompt=>"/$prompt/",input_log=>"debug.txt");
$telnet->login(Name=>$user,Password=>$pwd);
print "Connecting ......";

sleep 2;