récupèrer page http

Bonjour,
Je cherche à récupèrer une page http sur un serveur.
J'ai réussi à m'authentifier et à afficher la page sur la console.Mais malheureusement je ne comprend pas comment faire pour enregistrer cette page dans un document .txt par exemple.

Voila ce que j'ai utilisé:
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'http://www.linpro.no/secret/');
$req->authorization_basic('aas', 'mypassword');
print $ua->request($req)->as_string;

ce programme écrit le contenu de la page sur la console.

Je veus qu'il l'écrive sur un fichier...Mais je n'y arrive pas (je ne comprend pas pourquoi d'ailleurs).

Voilà si quelqu'un a une idée...

Merci d'avance.

au lieu de faire

Code:

---

print $ua->request($req)->as_string;

---

tu fais

Code:

---

1 2 3 4 5

my $code_page = $ua->request($req)->as_string;   open(FILE, ">toto.txt"); print FILE $code_page; close(FILE);

---

voilà

Justement j'allais dire que j'avais trouvé.
En tout cas je te remercie pour cette réponse ci rapide.
Bonne journée.

Je profite de ce message pour faire part d'un problème que je rencontre :

J'ai à peu près le même code que bennyben87, mais mon fichier destination ne reçoit qu'un message d'erreur :

Citation:

---

500 Can't connect to www.developpez.net:80 (connect: Unknown error)
Content-Type: text/plain
Client-Date: Thu, 07 Aug 2008 15:29:07 GMT
Client-Warning: Internal response

500 Can't connect to www.developpez.net:80 (connect: Unknown error)

---

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl -w   use LWP::UserAgent;   $a = LWP::UserAgent->new; $req = HTTP::Request->new(GET => 'http://www.developpez.net'); my $b = $a->request($req)->as_string;   open(F1, ">destination.txt"); print F1 $b; close(F1);

---

Pourrait-il s'agir d'un blocage du au pare-feu?
Existe-t-il un moyen de passer outre?

J'avoue être dépassé, je vous remercie d'avance pour vos réponses et vos solutions.