Ah. I See. So you would have to send a "\n" or "\r" forst, and only then do the ->login().

The author of Net::Telnet::Cisco seems to have anticipated this problem, there is a send_wakeup setting. You could modify the code from your OP to

my $cs = Net::Telnet::Cisco->new( Host => '10.10.1.2', Port => '7012',
+ Send_wakeup => 'connect', Dump_Log => 'cisco.log', );
[download]

The effect is, that, upon connecting, a newline is sent upon connection. Perhaps this works even with devices that don't need it.

With the Send_wakeup => 'connect', added my script times out and I get the following error-

bad named parameter "Send_wakeup" given to Net::Telnet::Cisco::new() a
+t
[download]

Please let me know.

Sorry, I know this module only from its doc and source, because we don't have that much Ciscos.

The message "bad named parameter" isn't there, but in Net::Telnet. Obviously, Net::Telnet::Cisco->new gives all its input parameters to Net::Telnet->new without cleaning out its own extensions.
Perhaps the error checking in Net::Telnet->new was put in later...

Anyway, if you leave it out, and put instead

$cs->send_wakeup('connect');
$cs->login(...);
[download]

at least this doesn't give the error message.

Update: tried it at work (no Cisco at home :-)), our cisco doesn't need send_wakeup, but works also with it. I tested using the following code

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

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

my @cmd_output = $cs->cmd( 'show ver | inc Configuration' );
print @cmd_output;
$cs->close;
[download]