Select Code to Download

package Acpi::Battery::Values;
use Acpi::Arxiu;  # Reads the content of the file
use Moose;
...
}

1;

use FindBin qw($Bin);
use lib "$Bin/lib";
use strict;
...
    my $value = $a->$an;
    print "$an = $value \n";
}

 perl Values.pl
G71C000AH310 
serial_number = 0000000288 
...
technology = Li-ion 
present = 1 
voltage_now = 11360000