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

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);