1 #!/usr/bin/env perl
  2 use 5.010;
  3 use strict;
  4 use utf8;
  5 use warnings qw(all);
  6
  7 use local::lib 'cisco';
  8
  9 use Net::Telnet::Cisco;
 10
 11 my $session = Net::Telnet::Cisco->new(
 12         Host => "192.168.168.2",
 13         Timeout => 3,
 14     );
 15 $session->login(Password => 'secret');

##</code><code>##

problem connecting to "192.168.168.2", port 23: connect timed-out at am304.pl line 11