...
client_open_log: entering
answer_open_log: entering
answer_open_log: open: Operation not supported
receive_fd: recvmsg: expected received 1 got 0# 

##</code><code>##

#!/usr/bin/perl

use strict;
use IO::Socket;

use constant SOCK_PATH => '/tmp/flowpipe.sock';

$SIG{TERM} = $SIG{INT} = sub { exit 0 };

my $path = shift || SOCK_PATH;
umask(0111);
my $sock = IO::Socket::UNIX->new(Local => SOCK_PATH, Listen => SOMAXCONN);

while (1) {
    my $data;
    my $peer = recv($sock, $data, 128, 0);
    print $data;
}

END { unlink $path if $path }