use warnings;

my ($data,$length);

# flush after every write
$| = 1;

# creating object interface of IO::Socket::INET modules which internally creates
# socket, binds and connects to the TCP server running on the specific port.
my $socket = new IO::Socket::INET (
            PeerHost => 'localhost',
            PeerPort => '8888',
            Proto => 'tcp',
            Blocking => 0,
            ) or die "ERROR in Socket Creation : $!\n";

print "TCP Connection Success.\n\n";


# read the socket data sent by server.
....
#while(1)
#  {
    $data= "read -m 60 -c heatpump mode";...
    $socket->send("$data\n");
sleep 5;
    $socket->recv($data,2048);
    print ("Received from Server : $data\n\n");
#    }

    $data= "read -m 60 -c heatpump mode2";..
    $socket->send("$data\n");
sleep 5;
    $socket->recv($data,2048);
    print ("Received from Server : $data\n\n");