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($LogSocket));
            if (defined($send)) {
                print "sent $message";
            }
        } else {
            print "I couldn't connect $!";
        }
        close(SERVER);