bin/set-half-brightness


1
2
3
4
5

#!/usr/bin/perl -w

open $fh, "<", "/sys/class/backlight/intel_backlight/max_brightness";
$max = <$fh>;
system qw|sudo set-brightness|, $max/2;