1 #! /usr/bin/perl -w

     2 use strict;

     3 

     4 my $DEV = "/dev/me8100_0a";

     5 open(DEV, $DEV) or die "Can't open $DEV: $!\n";

     6 

     7 my $data;

     8 while (sysread(DEV, $data, 2)) {

     9 	my $value = unpack "S", $data;

    10 	print "* read $value\n";

    11 }