Network






# !/usr/bin/perl

		use IO::Socket;

		$sock = new IO::Socket::INET(PeerAddr=>'www.google.co.jp',
				PeerPort=>80,
				Proto=>'tcp');

		die "IO::Socket : $!" unless $sock;

		print $sock "GET / HTTP/1.0\r\n\r\n";

		print <$sock>

		close($sock);

		exit;