#!/usr/bin/perl
print grep {/state|to\ full|percentage/}
  `upower -i /org/freedesktop/UPower/devices/battery_BAT0`;