ANSI color dump in perl

ansi.pl

for ($i = 0; $i < 30; $i++) {
    for ($j = 0; $j < 10; $j++) {
      $n = 10*$i + $j;
      last if ($n > 255);
      print sprintf("\033[%dm %3d\033[m", $n, $n);
    }
    print "\n";
    last if ($n > 255);
  }