#!/usr/bin/perl
print 'Battery: ', ( `acpi` =~ /(\d+)%/ )[ 0 ] // '??';