--- a/me8100_test_perl/test.pl	Thu Jan 24 17:51:57 2002 +0100
+++ b/me8100_test_perl/test.pl	Thu Jan 24 18:52:09 2002 +0100
@@ -8,9 +8,8 @@
     my $me8100 = new ME8100(@DEVICES);
 
     while (1) { 
-	my @a = $me8100->read();
-	print "@a\n";
-	sleep(1);
+	my @a = $me8100->read(1);
+	print "read: @a\n";
     }
 
 }