diff -r 6acf8ea44e0a -r 94281ba012c8 lib/Quancom.pm
--- a/lib/Quancom.pm	Tue Jan 06 22:33:39 2009 +0100
+++ b/lib/Quancom.pm	Tue Jan 06 22:52:09 2009 +0100
@@ -94,8 +94,11 @@
         my $bit   = $_ % 8;
         $groups[$group] |= (1 << $bit);
     }
-    $_ = "SX 0100 " . join "", map { sprintf "%02x ", $_ } reverse @groups;
-    $self->cmd($_);
+
+    my $cmd = $value ? "S" : "C";
+    $cmd .= "X 0100";
+    $cmd .= join "", map { sprintf "%02x ", $_ } reverse @groups;
+    $self->cmd($cmd);
 }
 
 sub set_timeout {
@@ -187,6 +190,10 @@
 this disables the socket communication and just simulates the Quancom
 module.
 
+=item B<set>( $bit, ... => $value )
+
+This sets one or more bits the specified values (true, false).
+
 =item B<cmd>( I<string> )
 
 Send a Quancom string to the device. The string here should be