my $SwitchIP = '192.168.0.1';
my $password = 'seekrit';
my $t = new Net::Telnet::Cisco (Timeout   => 10,
                                Dump_log  => 'dump.log',
                                Input_log => 'input.log',
                                Port      => 2011,
                               );

$t->open("$SwitchIP");
$t->login(Password => $password);

##</code><code>##

my $session = Net::Telnet::Cisco->new(Host => '123.1.1.1');
$session->login('login', 'password');