A simple perl script to setup a modbus/TCP server.