--- a/me8100_test_perl/test.pl	Fri Jan 25 20:26:39 2002 +0100
+++ b/me8100_test_perl/test.pl	Fri Jan 25 21:31:37 2002 +0100
@@ -2,13 +2,13 @@
 
 use ME8100;
 
-my @DEVICES = ("/dev/me8100_0a");
+my @DEVICES = qw(/dev/me8100_0a /dev/me8100_0b);
 
 MAIN: {
     my $me8100 = new ME8100(@DEVICES);
 
     while (1) { 
-	my @a = $me8100->read(1);
+	my @a = $me8100->read();    # should block
 	print "read: @a\n";
     }