me8100_test_perl/test.pl
changeset 28 df25c194e3ce
parent 25 984e6da93d95
child 29 1ad7e54c3dc4
--- a/me8100_test_perl/test.pl	Sat Jan 26 18:02:03 2002 +0100
+++ b/me8100_test_perl/test.pl	Sat Jan 26 19:46:15 2002 +0100
@@ -9,7 +9,8 @@
 
     while (1) { 
 	my @a = $me8100->read();    # should block
-	print "read: @a\n";
+	print "** <@a> **\n";
+	sleep(1000);
     }
 
 }