examples/client
changeset 22 7690e12fafda
parent 20 94281ba012c8
child 23 66c21518904c
--- a/examples/client	Wed Jan 21 19:44:38 2009 +0100
+++ b/examples/client	Thu Jan 22 03:57:27 2009 +0100
@@ -13,6 +13,10 @@
     my $q = new Quancom $ARGV[0];
 
     my $r;
+
+    $q->set(1..64 => 1); sleep 1;
+    $q->set(1..64 => 0); sleep 1;
+
     foreach (1..64) {
 	$q->set($_ => 1);
 	usleep 1e6/20;