#! c:/perl/bin/perl.exe -slw
use strict;

use Net::Telnet();
use Net::Telnet::Cisco;

my $session = Net::Telnet::Cisco->new(Host => 'ccc1000');
$session->login('BA', 'BA123BA');