--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/me8100_test_dio/rtest.pl	Tue Jan 22 20:30:44 2002 +0100
@@ -0,0 +1,11 @@
+#! /usr/bin/perl -w
+use strict;
+
+my $DEV = "/dev/me8100_0a";
+open(DEV, $DEV) or die "Can't open $DEV: $!\n";
+
+my $data;
+while (sysread(DEV, $data, 2)) {
+	my $value = unpack "S", $data;
+	print "* read $value\n";
+}