#!/usr/bin/perl

use charger_lib;

$| = 1;

$cl = new charger_lib;
$cl->set_delay(0.05);
$cl->set_baud(9600);
#$cl->set_debug();
$filename = shift || "code.img";

$cl->upload($filename, 1);