my $sock = IO::Socket::INET->new('perlmonks.org:80')
	or die $@;
$sock->syswrite("GET / HTTP/1.0\r\n");
$sock->close();