Given the line number, it's the login that's failing. This suggests that it's not seeing the login prompt that it's expecting and timing out. That's a difference between devices you might not notice with Putty. Add: Dump_Log => 'cisco.log' to your new() parameters and see what is going over the network.

I have modified the code as following-

use Net::Telnet::Cisco;

      my $cs = Net::Telnet::Cisco->new(
      Host => '10.10.1.1',
      Port => '7012',
      Prompt => '/(?m:^\W?[\w\/\d.:-]+[>#])/',
      Dump_Log => 'cisco.log',
      );

      $username = "user";
      $password = "pass";

      $cs->waitfor_pause(1);
               $cs->print($username);
               print "user logged\n";
               $cs->waitfor_pause(1);
               $cs->print($password);
               print "went thru\n";

      # Execute a command
      my @cmd_output = $cs->cmd( 'show ver | inc Configuration' );
      print @cmd_output;

      $cs->close;
[download]

Getting error:-


user logged
went thru
command timed-out at c:\temp\dirA9AB.tmp\telnet-2-port-test.pl line 23

Press any key to continue . . .
[download]

line 23: my @cmd_output = $cs->cmd( 'show ver | inc Configuration' );
Please let me know.

print "user logged\n";
[download]

actually, that is a lie, that should read

print "username sent without checking if the Cisco wanted it at all";
[download]

and likewise for

print "went thru\n";
[download]

You did set dump_log, so Net::Telnet::Cisco should have logged what the remote device sent. What does cisco.log contain?

Update/explanation: despite its name, waitfor_pause does not wait for anything, just sets a time for ->waitfor()