my $ip = 'x.x.x.x';
my $session = Net::Telnet::Cisco->new( Timeout => 10, Errmode => 'return');

##</code><code>##

$session->open($ip);
if($session->errmsg){
	$session->close;
	}