/^POWER_SUPPLY_([A-Z_]+)=(.+)$/;
$battery{$1} = $2;
}
-close $file;
+close $file or die $!;
+
+# New names ...
+if (defined $battery{ENERGY_NOW}) {
+ $battery{CHARGE_NOW} = $battery{ENERGY_NOW};
+ $battery{CHARGE_FULL} = $battery{ENERGY_FULL};
+}
my $charge = int($battery{CHARGE_NOW} / $battery{CHARGE_FULL} * 100);