#!/usr/bin/perl -w
###########################################
# mmread - Read a meter value via RS-232
# Mike Schilli, 2007 (m@perlmeister.com)
###########################################
use strict;
use Device::SerialPort;

my $serial = Device::SerialPort->new(
     "/dev/ttyS0");

$serial->baudrate(600);
$serial->databits(7);
$serial->purge_all();
$serial->rts_active(0);
$serial->dtr_active(1);

   # Send request
$serial->write("\n");
   # Wait one second
select(undef, undef, undef, 1);

   # Read response
my($count, $data) = $serial->read(14);
print "$data\n";