simple perl mud client realised thrue socket::class