Perl soap ldap

salut !
Je voudrais developper un code qui permet la connexion à un ldap déja installé et configuré sur ma machine
Voila mon code menu.pm :

Citation:

---

package menu;
use strict;
use Net::LDAP;
use Net::LDAP::Util qw(ldap_error_text);
sub connection {

my $ldap = Net::LDAP->new( $hostname,port => 389, version => 3)
or die "Unable to connect to LDAP server $hostname: $@\n";
print 'connexion établie ';
my $result = $ldap->bind("cn=Ad,dc=global,dc=tn", password => "pass");
if ($result->code) {
die "An error occurred binding to the LDAP server: "
.ldap_error_text($result->code)."\n";
}
return 'ok';
}
1;

---

mon dispatcher est menu.cgi

Citation:

---

#!/usr/bin/perl -w

#use lib '/var/www/cgi-bin' ;

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI

-> dispatch_to('menu')

-> handle

;

---

Mon .pl est :

Citation:

---

use SOAP::Lite;
print SOAP::Lite
-> uri('http://localhost/menu')
-> proxy('http://localhost/cgi-bin/menu.cgi')
-> connection()
-> result;

---

Et a l'exécution ce ne donne rien !
Si qq un a une idée qu'il me sauve s'il vous plait !
Je débute npn seulement en soap mais aussi en développement !!!!!!!!!!
NB :un exemple simple en soap 'hello world' marche bien
et la connexion a ldap en local ss soap marche aussi !
c la combinaison de connexion ldap soap qui cloche !
help plz !