decode bytes

diff --git a/dialog.pl b/dialog.pl
index 006eded..6d1a29a 100755 (executable)
--- a/dialog.pl
+++ b/dialog.pl
@@ -81,6 +81,12 @@ retry:
                $o += 2;
        }
 
+       while ( $o < length($data) - 1 ) {
+               my $n = unpack('c', substr($data,$o,1));
+               warn "## $o = ", $n, "\n";
+               $o += 1;
+       }
+
        return $data;
 }