LISTING 1: Code That Adds a Contact Object

use strict;
use Net::LDAP;

# BEGIN CALLOUT A
BEGIN COMMENT
# Customize for your environment.
END COMMENT
my $dc = 'dc1';
my $user = 'administrator@mycorp.com';
my $passwd = 'Adminpasswd';
my $parent_dn = "cn=users,dc=mycorp,dc=com";
# END CALLOUT A

BEGIN COMMENT
# Connect and authenticate.
END COMMENT
my $ldap = Net::LDAP->new($dc) or die "$@\n";
my $rc = $ldap->bind( $user, password => $passwd);
die $rc->error if $rc->code;

# BEGIN CALLOUT B
BEGIN COMMENT
# Add the John Doe contact object.
END COMMENT
$rc = $ldap->add( "cn=mycontact,$parent_dn",
	attrs => [
		objectclass => 'contact',
		displayName => 'John Doe',
		sn => 'Doe',
		givenName => 'John',
		telephoneNumber => '555-123-4567',
	]);
# END CALLOUT B
if ($rc->code) {
	print "Add failed: ",$rc->error,"\n";
}
else {
	print "Add successful\n";
}

$ldap->unbind;