my $socket=IO::Socket::INET->new(PeerAddr => '127.0.0.1',
 				 PeerPort => 80,
 				 Proto => 'tcp',
 				 Timeout => 5);