sub ConnectTelnet

{
	
	print LOG "    [FunctionName][ConnectTelnet]    \n";
	my $TelnetObject  = new Net::Telnet(Timeout => 100,Errmode    => 'return');  
	if($TelnetObject->open("$HostName")) 
    {
		if(!$TelnetObject->login($TelnetUserId,$UnixPassword) )
	       {
			print LOG " Unable to connect telnet   \n";

		    &ErrorNotification(ERR_LOGIN_TITLE,ERR_LOGIN_MSG);	
			$MainScreenObject -> Unbusy( -recurse => '1' );
			return(0);
	       }
		  else
		   {
			  print LOG "connected Sucesfully";
		   }
	} 
	else
	{
		print LOG " Unable to connect network   \n";

		&ErrorNotification("ERR_CON_TITLE","ERR_CON_MSG");	
	}	
	
	#For retrieving telnetobject decalring globally
	$TelnetObjectRef = $TelnetObject;

	return($TelnetObject);
}