#!/usr/bin/perl

$| = 1;
use strict;
use IO::Socket::UNIX;

my $SOCK_PATH = "/tmp/mysock";
my $sock = IO::Socket::UNIX->new(
  Type => SOCK_DGRAM(),
  Peer => $SOCK_PATH,
);
$sock->send("Hello") or die "error: $@";