+} elsif ( $ARGV[0] =~ m/arming/ ) {
+ my $rel_zero = $ARGV[1] // 1;
+ print "Set alarm arming $rel_zero\n";
+ $raw = write_parameter_frame( "\x3a" => "\x11" . pack('C',$rel_zero) );
+
+} elsif ( $ARGV[0] =~ m/mqtt/ ) {
+ my @mqtt = qw(185 201 196 30 1883);
+ print "Set server port ", join(' ', @mqtt), "\n";
+ $raw = write_parameter_frame( "\x14" => "\x06" . pack('CCCCs',@mqtt) );
+
+} else {
+ print "read_parameter_frame\n";
+ $raw = read_parameter_frame( "\x00" => "\x04\xe8\x03\x00\x00",
+ "\x0e\x0f\x11\x12",
+ "\x14",
+ "\x1a\x21\x22\x23\x24\x33\x34\x35\x3a\x3b",
+ "\x44",
+ );
+}