#! /usr/bin/perl -w -T

%ENV = ();
$ENV{PATH} = "/usr/local/bin:/usr/local/sbin:/usr/bin:/usr/sbin:/bin:/sbin";

use strict;
use Socket;

my $socket_path = '/tmp/wibble';
my $sock_addr = sockaddr_un($socket_path);
socket(my $server, PF_UNIX,SOCK_STREAM,0) || die "socket: $!";
unlink($socket_path);
bind($server,$sock_addr) || die "bind: $!"; 
listen($server,SOMAXCONN) || die "listen: $!";

accept(my $client,$server); 
print 'Client Sez "'.<$client>."\"\n";
print $client "Same to ya, fella\n";

##</code><code>##

#! /usr/bin/perl -w -T

%ENV = ();
$ENV{PATH} = "/usr/local/bin:/usr/local/sbin:/usr/bin:/usr/sbin:/bin:/sbin";

use Socket;
use strict;

my $name = '/tmp/wibble';
my $sock_addr = sockaddr_un($name);

socket(my $server, PF_UNIX,SOCK_STREAM,0) || die "socket: $!";
connect($server, $sock_addr) || die "connect: $!";

print $server "Wibble"; 

# if you comment this out, the 1 way conversation will work
print "Server Sez ".<$server>."\n";