1 #! /usr/bin/perl -w

     2 

     3 use ME8100;

     4 

     5 my @DEVICES = ("/dev/me8100_0a");

     6 

     7 MAIN: {

     8     my $me8100 = new ME8100(@DEVICES);

     9 

    10     while (1) { 

    11 	my @a = $me8100->read();

    12 	print "@a\n";

    13 	sleep(1);

    14     }

    15 

    16 }

    17 

    18 # vim:sts=4 sw=4 aw ai sm: