#!/usr/bin/perl
use IO::Socket;
use strict;
use warnings;

unlink "/tmp/mysock";
our $server = IO::Socket::UNIX->new(LocalAddr => "/tmp/mysock",
Type => SOCK_DGRAM,
Listen => 5)
or die $!;

while (my $client = $server->accept())
{
while (defined (my $buf = <$client>))
{
print "$buf\n";
}
}

close ($server);

exit(0);
[download]

When I run it, the ->new() call appears to work. No error codes and the debugger reports that $server is a socket. The /tmp/mysock file doesn't get created, though. Then the while($client = ... ) just falls through. It doesn't wait for the socket to say anything, it just skips to the close() statement and exits.