--- 3m-810.pl	2009/04/10 12:16:20	35
+++ 3m-810.pl	2009/06/01 09:39:44	36
@@ -313,9 +313,9 @@
 
 	$data = substr($data,0,16);
 
-	my $hex_data = unpack('h*', $data) . ' 00' x ( 16 - length($data) );
+	my $hex_data = unpack('H*', $data) . ' 00' x ( 16 - length($data) );
 
-	print "write_tag $tag = $data ",dump( $hex_data );
+	print "write_tag $tag = ",dump( $data ), " == $hex_data\n";
 
 	cmd(
 		"d6 00  26  04  $tag  00 06 00  04 11 00 01  $hex_data 00 00 00 00  fd3b", "write $tag",