Ok so I have been able to get this to work* - somewhat.

* - Not literal because its not how i envisioned it.

Here is what I got, I created an input.log to well capture the input in a log so that I can see in better detail as to what is going on. It turns out the log file produces the output I was looking for the perl script to output.

Here is what the current code looks like:

#!/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, Inpu
+t_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");
[download]

Here is the output of input.log:

User Access Verification

Username: XXX
Password:


^MDIAG> show ver
^M BLAH BLAH BLAH VERSION NUMBER BLAH
^MDIAG>

Now my question is deeper, why is this not outputing via the print @output; statement, it seems like @output isnt even being pushed the output of "..cmd(show ver)"?

My second question is why do i continue to get a command-timed out line ## - in reference to the cmd(show ver); line, even though the output.log shows it executed correctly? Is there a way to kill the cmd() before my 2 second timeout?

Also does the ^M have anything to do with either question?

Thanks for the help,