--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/me8100_test_perl/test.pl	Thu Jan 24 17:51:57 2002 +0100
@@ -0,0 +1,18 @@
+#! /usr/bin/perl -w
+
+use ME8100;
+
+my @DEVICES = ("/dev/me8100_0a");
+
+MAIN: {
+    my $me8100 = new ME8100(@DEVICES);
+
+    while (1) { 
+	my @a = $me8100->read();
+	print "@a\n";
+	sleep(1);
+    }
+
+}
+
+# vim:sts=4 sw=4 aw ai sm: