#!/usr/bin/perl

use charger_lib;


$cl = new charger_lib;
$cl->set_delay(0.05);
$cl->set_unit(shift || 255);
$cl->set_baud(shift || 9600);
$cl->set_debug();

while(1) {

$cl->ping(1); 

}