#! /usr/bin/perl -w
  use strict;

  print '         ',
        map ("  $_  ", 40..47),
        "\n";

  for my $fg (30..37, map {"1;$_"} 30..37)
  {
    printf "%9s%s\n",
           $fg,
           join ('', map {"\e[${fg}m\e[${_}m Text \e[0m"} 40..47);
  }