sub ConnectSSH {
	
	print LOG "    [FunctionName][ConnectSSH]    \n";
	my $ClearCaseSSHObject  = Net::SSH::W32Perl->new($host,use_pty => 0,debug=>1);  
	if($ClearCaseSSHObject)  {
		if(!$ClearCaseSSHObject->login('$user','$password') ) {
			print LOG " Unable to connect SSH  \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 SSHobject decalring globally
	$ClearCaseSSHObjectRef = $ClearCaseSSHObject;
	return($ClearCaseSSHObjectRef);
}