Fellow Monks, I have a script that listens on the UNIXDGRAM socket for connections & have multiple scripts that call this single listening process. If two or more scripts call this listening process, would they clash? If so, how can I get out of it? Any suggestions?

use MY::Variables;
use Socket;

$addr = sockaddr_un($LogSocket);

socket(SERVER, PF_UNIX, SOCK_DGRAM, 0) || die "Could not create socket
+: $!";
unlink("$LogSocket");

bind(SERVER, $addr) || die "Could not bind: $!";

#select((select(SERVER), $| = 1)[0]); #enable command buffering


while (1) {
    $x = recv(SERVER,$msg,1024,0);  
    if (defined($x))  {
        my ($time,$level,$Program,$message,@sites) = split(chr(28),$ms
+g);

        foreach my $site (sort @sites) {
            my $email = "$time [$Program] $message";
            open(LOG, ">> $GnrtLog/$site.log") || die "cannot open $Lo
+gSocket $!";
                print LOG $email;
            close(LOG);
        }
    } else {
        print "hi";
        $count++;
    }
[download]

If no process is sending something to this listening process (above)
then the above script idles on recv line until it receives something again? How can I make it get out of the 'recv' cond to exec the count++?

The multiple clients:

use MY::Variables;
use Socket;

       <some irrelevant stuff here>

       if (socket(SERVER, PF_UNIX, SOCK_DGRAM, 0)) {
            my $send = send(SERVER, $message, 0, sockaddr_un($LogSocke
+t));
            if (defined($send)) {
                print "sent $message";
            }
        } else {
            print "I couldn't connect $!";
        }
        close(SERVER);
[download]

thanx for any suggestions... (let me know if I'm being unclear)