#!/usr/bin/perl

$| = 1;
use strict;
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 ($sock->recv($data, 1024)) {
  print "received: $data\n";
}
print "exiting: $!\n";