$client->recv($data,1024);
            my @test=unpack('C*', $data);
                $data=join('',@test);
            &do_log("Received data: $data");