#!/usr/bin/perl
no strict;

#### Define Library Locations ####
#use lib '/root/Net-Telnet-3.03/blib/lib/Net/';
use lib '/root/Net-Telnet-Cisco-1.10/blib/lib/';

#### Define Modules to use ####
#use Net::Telnet;
use Net::Telnet::Cisco;

#### Create New Telnet Connection ####
my $telnet = Net::Telnet::Cisco->new(Host=>'1.2.3.4', Port=>2005, Input_log => "input.log", Timeout=>5,  Errmode=>'die');

$telnet->waitfor('/Username:/') or die('FAILED');
$telnet->print('XXX');
$telnet->waitfor('/Password:/') or die('FAILED');
$telnet->print('XXX');

$telnet->cmd("show ver");