#!/usr/bin/perl -w
use IO::Socket::UNIX;
my ($sockfile) = shift 
  || die "$0: Socket address required\n";
my $r;
my $usock = new IO::Socket::UNIX (Type  => SOCK_STREAM,
				  Peer => $sockfile)
    || die "ERROR: $!\n";

# read stdin and write to socket
while(<>) {
    print $usock $_;
}

# shut down writing side (server receives EOF)
$usock->shutdown(1);
$sock->blocking(1);  # this does not help

# read socket (blocking) and write to stdout
while(<$usock>) {
    print $_;
}

# shut down reading side
$usock->shutdown(0);