#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $me = 'some_client';

my $socket = IO::Socket::INET->new( PeerAddr    => '127.0.0.1',
                    PeerPort    => '9898',
                    Proto       => 'tcp',
                    Type        => SOCK_STREAM )
    or die "Couldn't connect to 127.0.0.1:9898: $@\n";

$socket->autoflush(1);

print $socket "$me $$\n";

# no more writing from here
$socket->shutdown(1);

my $line = <$socket>;
chomp $line;
print STDOUT "$line\n";
$socket->close;

exit 1 unless $line eq 'SUCCESS';
exit 0;