#!/usr/bin/perl -w
use strict qw (subs refs vars) ;

use IO::Socket ;

$SIG{INT} = sub { die ; } ;

my $socket = $ARGV[0] || "/tmp/SfEx_msg" ;

my $server = IO::Socket::UNIX->new
  (Local => $socket, Type=>SOCK_STREAM, Listen=>1)
    or die "Cannot establish socket $socket: $!\n" ;

END { unlink $socket if $server ; }

print "Monitoring established on $socket\n" ;

while (my $client = $server->accept())
  {
  $client->autoflush (1) ;
  STDOUT->autoflush (1) ;
  print '+ ', '='x50, "\n" ;
  while (<$client>) { print ; }
  print '- ', '='x50, "\n" ;
  close $client ;
  }
