#!/usr/bin/perl

# https://perlmonks.org/?node_id=1227597

use strict;
use warnings;

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

my $SOCK_PATH = "/tmp/mysock";
unlink $SOCK_PATH;
my $sock = IO::Socket::UNIX->new
  (
  Type => SOCK_DGRAM(),
  Local => $SOCK_PATH,
  Listen => 10,
  ) or die "error: $@";

my $data;
while ( defined $sock->recv($data, 1024) )
  {
  print "received: $data\n";
  }
print "exiting: $!\n";
[download]