use  IO::Socket;
$socket=IO::Socket::INET->new(
				Proto => 'tcp',
				PeerAddr => 'www.nai.com',
				PeerPort => 'http(80)');
print "... $socket\n";

# http://www.nai.com/us/index.asp

print $socket "GET /us/index.asp HTTP/1.0";
open (OUT, ">out.txt");
while (<$socket>) {
	print OUT;
}
close (OUT);
close $socket;