#!/usr/bin/perl
#

use strict;
use warnings;
use Net::Telnet;

my $host = '192.168.130.112'; # valid host that is offline
my $port = 10001;

print "DEBUG 1\n";
my $t = new Net::Telnet (Host       => $host,
                         Port       => $port,
                         Timeout    => 1,
#                        -timeout    => 1,
                         Prompt     => '/Escape character is.+\n/',
                         Rs         => ' ',
                         Ors        => '',
                         Binmode    => 1,
                         Telnetmode => 1,
                         Errmode    => 'return');
print "DEBUG 2\n";
if (!$t) {
    die "Failed to create telnet session\n";
}