Just print the state strings

dmx/debug.pl

@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# Always debug
+BEGIN { $ENV{'DEBUG'} = 1; }
+
+# Local modules
+use Cwd qw(abs_path);
+use File::Basename qw(dirname);
+use lib dirname(abs_path($0));
+use DMX;
+
+# User config
+my %DIM = ();
+my $DELAY = 10;
+
+# App config
+my $DATA_DIR     = DMX::dataDir();
+my $STATE_SOCK   = $DATA_DIR . 'DEBUG.socket';
+
+# Sockets
+DMX::stateSocket($STATE_SOCK);
+DMX::stateSubscribe($STATE_SOCK);
+
+# Loop forever
+while (1) {
+	DMX::readState($DELAY, undef(), undef(), undef());
+}