# simple telnet_test

use strict;
use Net::Telnet;

###

#my $testfilename = "telnet-tests.txt";
my $testfilename = "iplist1.txt";
my $dumplog = "dumplog.txt";
my $outputlog = "outputlog.txt";
my $inputlog="inputlog.txt";
my $logfilename = "./log/telnetlog${t}.txt";
our $testcount = 0;
our $debug = 1;





###

# instantiate a new telnet object
my $telnet = Net::Telnet->new(Port => 'xxxx', Timeout => 10, Telnetmode => '0',
Errmode => 'die', Prompt => '//', Dump_log => "$dumplog", output_log => "$outputlog", input_log => "$inputlog" );
my $string = "\015\012" ;
#my $string = '\CR \LF' ;

$telnet->open("10.aaa.bb.cc") or die "hai $telnet->errmsg ";
print "connected  \n";
$telnet->waitfor('//');
print "about to execute carriage return  \n";

print "sending \\cr waiting ...\n";
my $output = $telnet->put(String => $string, Errmode => 'die', Timeout => '4',);
print " $output \n";