new perl shock client
first version of shock client