#create new client socket object
sub create_new_client_sock {
	
	#create socket
	
	my $sock = IO::Socket::INET->new(
					PeerAddr => $conf_file->{server},
					PeerPort => $conf_file->{port},
					Blocking => 0,
					);
	
	#check if socket exists
	if (!($sock)) {
		die "could not establish socket to " . $conf_file->{server} . ":" . $conf_file->{port} . "\n";
	}
	

	#return socker object reference
	return $sock;
	
}