#!/usr/bin/perl -w

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