use IO::Socket;
use Sys::Hostname;
my($ipaddr)=inet_ntoa((gethostbyname(hostname))[4]);
$remote = IO::Socket::INET->new(
                Proto   => 'tcp',       # protocol
                PeerAddr=> "$ipaddr:8087",   
                PeerPort=> "8087",      # port of server
                Reuse   => 1,
                ) or die "$!";
print "Connected to ", $remote->peerhost, # Info message
      " on port: ", $remote->peerport, "\n";
$remote->autoflush(1);  # Send immediately

while (<>) {    # Get input from STDIN
		print  $remote  " "; print  $remote "sendplc ";
        print  $remote  $_;       # Send to Server
       		#last if m/^end/gi;      # If 'end' then exit loop
        my $line = <$remote>;   # Receive echo from server
        if ($line ne $_) {      # If not the same as input
                #print "Error in sending output\n"; # error
                exit;           # Terminate
        }

print "End of client\n";        # End of client
close $remote;                  # Close socket

exit
}