#!/usr/bin/perl
use 5.024;
use strict;
use warnings;

my $device = '/sys/class/power_supply/macsmc-battery';
my $cbeh  = "${device}/charge_behaviour";

while (1) {
  open my $fcap, "<", "${device}/capacity";
  my $cap = <$fcap>;
  close $fcap;
  say "cap: $cap";

if ($cap < 70) {
  open my $cpol, ">", $cbeh;
  print $cpol 'auto';
  close $cpol;
} elsif ($cap > 90) {
  open my $cpol, ">", $cbeh;
  print $cpol 'force-discharge';
  close $cpol;
} else {
  open my $cpol, ">", $cbeh;
  print $cpol "inhibit\-charge";
  close $cpol;
}

  sleep 10;
}