--- 3m-810.pl	2010/01/17 14:13:32	60
+++ 3m-810.pl	2010/02/09 13:55:18	61
@@ -120,7 +120,7 @@
 				foreach my $p ( keys %$param ) {
 					next unless $p =~ m/^tag_(\S+)/;
 					my $tag = $1;
-					my $content = $param->{$p};
+					my $content = "\x04\x11\x00\x01" . $param->{$p};
 					$status = 302;
 
 					warn "PROGRAM $tag $content\n";