#!/usr/bin/perl

use Socket;
use strict;
use warnings;

my $path = '/tmp/RePEc_CD';

socket ( Client, PF_UNIX, SOCK_STREAM, 0 )
 or die "unable to create socket: $!";

connect ( Client, sockaddr_un ( $path ) )
 or die "unable to connect: $!";

$| = 1;

print Client "SOURCE client 0\nCOLLECTION RePEc\nUPDATE none\n\n";

print "client 0 send data packet\n";

close Client;

exit