#!/usr/bin/perl 
use strict; 
use Term::ANSIColor qw(:constants); 
{ local $Term::ANSIColor::AUTORESET = 1; 
 print BOLD "Dog record\n"; 
 my $nlabel = BLACK ."Name\:"; 
 my $dogname = RED ."Silkenswift Blaze of Chaos"; 
 my $pt = RED "DC ";
 my $ft = RED "LCM2 SORC GRC ";
 my $ot = RED "CD "; 

printf("%-14s %-41s %-20s \n","$nlabel $pt","$dogname","$ft $ot"); 
print BLACK ""; print BOLD "################################\n"; 
}