Esse scriipt foi desenvolvido para ser usado em um notebook acer, mas você pode mudar para o seu modelo, observando onde fica no seu /sys o brightness.

• Download iluminacao
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl
use strict;
use diagnostics;
system("clear");
   
   print "Qual é a iluminação que dejesa usar? (0-15) \n";
   my $NUMERO = <STDIN>;
   chomp $NUMERO;

   system("sudo chmod 666 /sys/devices/platform/acer-wmi/backlight/acer-wmi/brightness");
   system("echo $NUMERO > /sys/devices/platform/acer-wmi/backlight/acer-wmi/brightness");
   
   print "Configuração aplicada!\n";

Testando a agilidade do sistema de arquivos

Listar arquivos

Calculadora com Perl com menos de 10 linhas de código

Muda o wallpaper do X-Windows

Algoritmo de Euclides estendido em Perl