Gestion Sockets Perl embed / C

Bonjour,

Je recherche depuis pres de deux jours un moyen de faire fonctionner
les sockets en Perl quand ces dernieres ont ete initialisees en C dans
un serveur.

Globalement je passe a ma fonction Perl le file descriptor renvoye par
le accept() en C.

Jusque la tout est coherent, et ma fonction Perl recoit le meme FD.

Le probleme est que je suis ensuite incapable d'ecrire sur le client
connecte au serveur....

Aucune erreur n'est renvoyee...

Voici ce que je fais :

open(SOCKET,">&=$fd");
print SOCKET "hello world\n";

sachant que $fd correspond au file descriptor renvoye par le accept();

Si je remplace $fd par 1 (STDOUT), ou 2 (STDERR), je n'ai aucun
probleme....

Je suppose que je dois rater une etape :(
Mais je ne trouve malheureusement pas dans les nombreuses docs Perl.

Si quelqu'un a une idee :) ?!


Merci,

Ugo PARSI

PS : Je n'ai pas le choix de l'architecture, elle m'est imposee, donc
je ne peux pas par exemple utiliser directement Perl pour gerer le
serveur et les sockets, ce qui serait beaucoup plus simple et coherent
:)