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

$|++;

my $socket = IO::Socket::INET->new(
   PeerAddr => '127.0.0.1',
   PeerPort => 50010,
   Proto    => 'tcp',
   Type     => SOCK_STREAM,
) or die "client: can't connect to 127.0.0.1:50010";

print STDOUT "I'm connected to the server\n#> ";

while (my $request = <STDIN>) {
   chomp $request;
   if (length($request)) {
      print $socket $request, "\n";
      last if $request eq 'exit';
      my $response = <$socket>;
      chomp $response;
      print $response, "\n";
   }
   print STDOUT "#> ";
}

close $socket;
print STDOUT "Connection closed\n";