Added a new client perl script