$data= "read -m 60 -c heatpump mode2";..
    $socket->send("$data\n");
    sleep 5;
    $data = '';
    while ( my $line = <$socket> ) {
       $data .= $line;
    }
    print ("Received from Server : $data\n\n");