added functions to perl module and created new perl shock client script