#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::UNIX;

my $SOCK  = '/home/lomig/dev/imliner/run/tst.sock';
unlink $SOCK if -e $SOCK;

my $read = IO::Socket::UNIX
  ->new (
         Local => $SOCK,
         Listen=> SOMAXCONN,
         Type => SOCK_STREAM,
         Reuse =>1,
	);
$read || die "No read socket: $!\n";
print 'Read inode = ',  (stat($read->hostpath()))[1], "\n";
  
my  $client = $read->accept();
while (<$client>) {
  print "read: $_";
  last if $_ =~ /2/; #exit after 3rd message
}
$client->close();
$read->close();


exec $0; # restart itself