$conn = IO::Socket::INET->new(
	PeerAddr=>"127.0.0.1",
	PeerPort=>80,
	Proto=>'tcp',
	Timeout=> 1, 
        Blocking=>1	);