use Net::LDAP;

#conection to the LDAP
my $server = 'ldaps://mterra1';
my $ldap = Net::LDAP->new( $server ) or die "$@";
$ldap->bind('cn=admin,o=telefonica', password => 'password');

my $contacto ="alias1";
my $usuario = 'prueba15@prueba.com';
my $entry_dn = "Alias=$contacto,ou=$usuario,o=agenda";
my $entry = [
	     'objectClass' => [ 'top',
				'contacto',
			       ],
	     'Alias' => $contacto,
	     ];

$result = $ldap->add (
	    $entry_dn,
	    atrr => $entry,
	    );

warn "error?: ", $result->error ;
#error?: Success at ./create.pl line 48, <DATA> line 225.

$ldap->unbind;