$telnet = new Net::Telnet ( Timeout=>3600,Prompt => "/$prompt/i",Errmode=>'die');
			$telnet->open("$Host");
			$telnet->waitfor('/login: $/i');
			$telnet->print("$User");
			$telnet->waitfor('/password: $/i');
			$telnet->print("$Pass");
			$telnet->waitfor("/$prompt/i");