#!/usr/bin/perl
###########################################
# mmloop
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use warnings;
use Device::MAS345;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

my $mas = Device::MAS345->new(
            port => "/dev/ttyS0");

open FILE, ">>values.txt" or die;

  # Autoflush
select FILE;
$| = 1;

while(1) {
    my($val, $unit, $mode) = $mas->read();
    die $mas->error() unless $mode;
    print FILE time(), " ", "$val\n";
    sleep 10;
}