Select Code to Download

blc6450vpt1>en
Password: 
...
Enter configuration commands, one per line.  End with CNTL/Z.
blc6450vpt1(config)#interface ethernet 1
blc6450vpt1(config-if-eth)#

#!/usr/bin/perl
## modules to use
...
    my $error = shift;
    print "Made it to error method " . Dumper($error, \@_);
}

[prompt]$./Net_Telnet_console.pl 
Connected to 10.2.200.10, port 2033
...
$VAR1 = [];
Made it to error method $VAR1 = 'pattern match timed-out';
$VAR2 = [];

Test]$ cat input.log 
...
*13:35:28.043 PST Sat Aug 21 2010
blc6450vpt1>show version
......don't need to paste the rest