+} elsif ( $ARGV[0] =~ m/zero/ ) {
+ my $rel_zero = $ARGV[1] // 0;
+ print "Set relative zero $rel_zero\n";
+ $raw = write_parameter_frame( "\x3a" => "\x01" . pack('C',$rel_zero) );
+
+} 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) );