Someone

#!/usr/bin/perl
use strict;
use Time::HiRes qw(usleep);

sub set {
	my( $file, $value ) = @_;
	open(KEK, ">/proc/acpi/asus/$file") or die "Can't open $file for writing: $!\n";
	print KEK $value;
	close(KEK);
}

sub set_bright {
	my $value = shift;
	set('brn', $value);
}

sub brightness_disco {
	my $sleep = 5000;
	while(1){
		$sleep = int(rand(20)) * 1000;
		print "sleep = $sleep\n";
		for( my $i=0; $i <= 15; $i++ ){
			set_bright($i);
			usleep($sleep);
		}
		for( my $i=15; $i >= 0; $i-- ){
			set_bright($i);
			usleep($sleep);
		}
		#if( $sleep == 5000 ){ $sleep = 20000; }
		#else{ $sleep = 5000; }
	}
}

set_bright(15);
sleep 1;
brightness_disco();