--- portmon-3m-810-decode.pl	2008/09/28 22:17:22	11
+++ portmon-3m-810-decode.pl	2008/10/01 18:46:03	14
@@ -6,7 +6,9 @@
 
 use Data::Dump qw/dump/;
 
+my $dump_chars = 0;
 my $debug = 1;
+
 my $p;
 
 sub as_chars {
@@ -53,7 +55,7 @@
 				} else {
 					warn sprintf("FULL %5s %2d | %s\n", $op, $len, $h);
 					my @msg = splice( @h, 0, $len + 3 );
-					printf("%-5s 0x%02x %-80s %s\n", $op, $#msg, join(' ', @msg), as_chars( @msg ));
+					printf("%-5s 0x%02x %-80s %s\n", $op, $#msg, join(' ', @msg), $dump_chars ? as_chars( @msg ) : '');
 					$p->{$op} = join(' ', @h);
 					warn "LEFT: ", $p->{$op} if $p->{$op};
 				}