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);