#! /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";