use Net::Telnet::Cisco;
my ($host, $user, $pass) = qw(10.10.1.1 user pass);

my $cs = Net::Telnet::Cisco->new(
    Host => $host,
    Port => $port,
    Dump_Log => 'cisco.log',
    Prompt => '/(?m:^\W?[\w\/\d.:-]+[>#])/',
    );
$cs->send_wakeup('connect');
$cs->login( $user, $pass );
print "username and password sent\n";

my @cmd_output = $cs->cmd( 'show cdp nei' );
print @cmd_output;
$cs->close;

##</code><code>##

username and password sent
command timed-out at c:\temp\dir6483.tmp\sendWake.pl line 28

Press any key to continue . . .