$sockclient = new IO::Socket::INET (PeerAddr => $remote_host,
	                              PeerPort => $remote_port,
	                              Proto    => 'tcp',
	                             );
	die "Socket could not be created. Reason: $!\n" unless $sockclient;