test.pl

use Socket; 
$hostname = "www.dhw.co.jp"; 
$port = 80;
$ipaddr = inet_aton($hostname);
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die;
connect(SOCK, sockaddr_in($port, $ipaddr)) or die;
select(SOCK); $| = 1; select(STDOUT);
print SOCK "GET /index.html HTTP/1.0\r\n\r\n";
print <SOCK>;