Rewritting of the Perl Acpi::Battery distribution