$send = IO::Socket::INET->new(PeerAddr => $remote_host, 
PeerPort => $remote_port, Proto => "tcp", Type => SOCK_STREAM, 
Timeout => 5) or die("Cannot connect to $remote_host:$remote_port : $@\n");