3      use Net::Telnet::Cisco;
4
5      my $cs = Net::Telnet::Cisco->new( Host => '10.10.1.2', Port => '7012', );
6      $cs->login( 'user', 'pass' );
7
8      # Execute a command
9      my @cmd_output = $cs->cmd( 'show ver | inc Configuration' );
10      print @cmd_output;
11
12      $cs->close;