Device::Modbus::Server::TCP updated with changes to naked_server.pl example program