Select Code to Download

my $SwitchIP = '192.168.0.1';
my $password = 'seekrit';
...

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

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