The code looks nice but I couldn't get curses to install so... I wrote an ANSI version!

#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIScreen qw/:color :cursor :screen/;
use Term::ReadKey;
setmode 3;
cls;
my @colors = ('black on green',
              'black on red',
              'black on blue',
              'black on yellow',
              'black on cyan',
              'black on magenta',
              'black on white');
# Loop to continuously blink the lights but terminate when a key is pr
+essed
while (not defined (my $key = ReadKey(-1))) {
    locate int(rand(23)), int(rand(79));
    print colored (" ", "reverse " . $colors[int(rand(7))]);
}
[download]

update: Uh, the reverse is not really necessary. I should try doing random foreground and background colors, display options and characters (you remember the high ascii block characters?).