use IO::Socket;
.
.
.
$sock = new IO::Socket::INET (  PeerAddr => $host,
	PeerPort => $port,
	Proto => $proto,
	Timeout => $timeout);

if (! $sock) {
        die "Socket not opened: $!\n";
}

$sock->send($request);
$sock->recv($data,$buffsize);
$sock->close;