use strict;
use warnings;

use IO::Socket;
use IO::Select;

my $sel = IO::Select->new();

my $address = "mysock";
unlink($address);
my $sock = IO::Socket::UNIX->new(
   Type   => SOCK_STREAM,
   Listen => 5,
   Local  => $address
) or die("Unable to create socket $!\n");
chmod 777, $address;
$sel->add($sock);

while(my @ready = $sel->can_read) {
   warn;
}