#!/usr/bin/perl
                                                                                
use strict ;
use warnings ;
                                                                                
use Net::LDAP ;
use Net::LDAP::LDIF ;
                                                                                
my $ldap = Net::LDAP->new('10.39.0.208',port => 3268) ;
die unless defined $ldap ;
                                                                                
$ldap->bind('a_dn_of_mine', password => 'a_password_of_mine') or die ;
                                                                                
my $res  = $ldap->search(base => 'dc=tiscali,dc=com',
                         filter => '(givenName=Marco)') ;
                                                                                
die $res->code if $res->is_error ;
                                                                                
my $ldif = Net::LDAP::LDIF->new('myself.ldif','w') ;
die unless defined $ldif ;
                                                                                
$ldif->write_entry($res->entries) ;
                                                                                
$ldif->done ;
$ldap->unbind ;