[Problème] proxy en perl

bonjour, comme le titre l'indique, je voudrais faire une sorte de proxy avec un script perl.

j'ai donc faire une réécriture d'url sous apache et je me sers de "IO::Socket::INET" pour me connecter et recevoir les pages internet désirés

jusque la pas de souci sauf que je suis embété pour renvoyer les pages au navigateurs

je voudrais me servir de ce bout de fonction pour renvoyer le résultat

Code:

---

1 2 3

while(my $line = <$socket>){ print $line; }

---

je pense que le problème vienne du header http, parce qu'en faisant des essaye à n envoyer que le "content-type", j'arrive à avoir ce que je désir mais pas moyen de gérer le reste "cookie, ..."

j'ai finallement fini par trouver :mrgreen:

par contre, y a t il un moyen "facile" pour récuperer toutes les lignes d'un header http (celui en provenance de mon navigateur) sans oublier une ligne?