#!/usr/bin/perl

require Device::SerialPort;
require emeter_lib;

$|=1;
$port = shift || "/dev/ttyS0";


$ob = Device::SerialPort->new($port);
$ob->baudrate(9600);
$ob->parity("none");
$ob->databits(8);
$ob->stopbits(1);
$ob->handshake("none");
$ob->rts_active(Yes);
$ob->dtr_active(No);
$ob->read_const_time(100);
$ob->read_char_time(10);
$ob->write_settings;

$i = 0;
$count = 0;

$lib = new emeter_lib;
$lib->fork($ob);

exit(0);