#!/bin/env 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 (
                         Port       => $port,
                         Prompt     => '/Escape character is.+\n/',
                         Rs         => ' ',
                         Ors        => '',
                         Binmode    => 1,
                         Telnetmode => 1,
                         Errmode    => 'return');
print "DEBUG 2\n";
if (!$t) {
    die "Failed to create telnet object\n";
}
$t->open(Host => $host, Timeout => 1)
  or die "Failed to create telnet session\n";