Thank you for the update. I just tried as following-

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;
[download]

But, I am getting the following error-

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

Press any key to continue . . .
[download]

line 28: my @cmd_output = $cs->cmd( 'show cdp nei' );

After that when I use putty to access, I can see that it's displaying my "show cdp nei" and didn't ask for authentication, as I have already provided thru the script. However, it didn't display in the script output and gave me that error.

Please let me know.

##UPDATE:
never mind... it's working. I just had to add 'term leng 0' first. Thank you all.