use strict;
my $port=80;
my $PF_INET=2;
my $SOCK_STREAM=1;
my $proto=getprotobyname("tcp");
$|=1;
my $ADDR=pack('SnC4x8',$PF_INET,$port,127,0,0,1);
socket (SOCKET,$PF_INET,$SOCK_STREAM,$proto) or die "cnat socket";
connect (SOCKET,$ADDR) or die "cnat link";
send (SOCKET,"GET / HTTP/1.0\r\n\r\n",0);
while(<SOCKET>) {
print $_;
};


Ref: http://www.pchoer.com/showart.asp?art_id=368&cat_id=2