For Each (and every) Color

#!/usr/bin/perl
while(1){
foreach $color (1..256){
$output = "\x1b[48;5;$color"."m";
foreach(0..`tput lines`){
$output .= "" x `tput cols`;
$output .= "\n";
}
$output .= "\x1b[0m\n";
print $output;
select(undef, undef, undef, 0.05);
}
}