Error Mode

sub connect_bridge{
	$t = new Net::Telnet (Timeout => 40, Errmode=>'die',Input_log => $input_log);
	$t->open($bridge_ip) or die ("Cannot connect to $noc_host!\n");
 
	print "Start Logging in to $bridge_ip.........";
 
	$t->waitfor($bridge_login_prompt);
	$t->print($bridge_username);
 
	$t->waitfor($bridge_password_prompt);
	$t->print($bridge_password);
 
	$t->waitfor($bridge_prompt);
 
	print "Success!\n\n";
}