#!/usr/bin/perl

use charger_lib;

$cl = charger_lib->new(0x0F);

$cl->set_unit(shift || 1);
$cl->set_baud(shift || 9600);
$cl->set_delay(0.10);
$cl->set_debug();

$cl->clear_errno();