Trying to aquire lock on log
Connection Established
Lock aquired

##</code><code>##

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;

my $text = 'Hello;';

my $host = "10.10.30.130";
my $port = "5678";

my $sock = IO::Socket::INET->new(
   PeerAddr   =>   $host,
   PeerPort   =>   $port,
   Proto      =>   'tcp'
   );

$sock or die "Can't connect to $host:$port\n";

#$sock->autoflush(1);

my $input = "";
my $char = "";
until ($input =~ /Lock aquired\s*$/){
   sysread($sock, $char, 1);
   $input .= $char;
}
print $input;

#$sock->send($text );
#syswrite $sock,$text ;
print $sock $text ;

$sock->shutdown(1);
close $sock;

exit;