Select Code to Download

#!/usr/bin/perl

print '',( `acpi` =~ /(\d+)%/ )[ 0 ] // '??', "%";

#!/usr/bin/perl
#battery.pl
...

        print "Battery: $&\n";
}