#/usr/local/bin/perl

require "easy-serv.pl";	# loading the library

&esv'register_client(CLIENT, "feenix", 2345);
			# connecting to port 7999 on "myhost"

$| = 1;
print "-> ";
while($_ = <STDIN>) {
    chop;
    $reply = &esv'send_request(CLIENT, $_); # send a request
    print $reply\n;			# print the reply
print "-> ";
}