my $session;

$session = Net::Telnet::Cisco->new(Host => $switch->{IP});
$session->login(Password => $switch->{PASS1});

$session->close();