IO::Socket

#!/usr/bin/perl -w 
use strict; 
use IO::Socket; 

my $host = "www.chinaunix.net"; 
my $port = "80"; 
my $http_head = "GET / HTTP/1.0
Host: $host:$port

"; my $sock = IO::Socket::INET->new("$host:$port") or die "Socket() error, Reason : $!
"; print $sock $http_head; print <$sock>; exit 0;

좋은 웹페이지 즐겨찾기