richiesta pagina web da cgi

[Gaetano Vituzzi]

prova questo:

#!/perl
#
# Client

use strict;
use warnings;
use IO::Socket::INET;

my $socket = IO::Socket::INET->new(PeerAddr => 'http://www.google.com', Proto => 'tcp') || die "$!\n";

$socket->autoflush(1);

print $socket "GET http://www.google.com/ HTTP/1.1\r\n";

my $pagina_web = <$socket>; 

close($socket);

oppure meglio ancora:

my $get_page = `curl -s http://www.google.it/`

calcola però che io non uso perl da un bel pò...