#!/usr/bin/perl -I../blib/lib -I../blib/arch

use Net::LDAP;
use Authen::SASL;

$ldap = Net::LDAP->new('loki.dcs.ed.ac.uk') or die "$@";
$sasl = Authen::SASL->new('GSSAPI',
			  fqdn =>'loki.dcs.ed.ac.uk', 
			  service =>'ldap',
			  user =>'sxw');

$mesg = $ldap->bind("",sasl => $sasl, version=> 3);
print "Message is ",$mesg->code,"\n";