use strict;
use warnings;

use Term::ANSIColor qw{ :constants };

printf qq{%s\nName:%s%-9s%-41s%s%-14s%s%-6s%s\n},
   qq{@{ [ BOLD ] }Dog record@{ [ RESET ] }},
   RED, q{DC},
   q{Silkenswift Blaze of Chaos},
   GREEN, q{LCM2 SORC GRC},
   BLUE, q{CD},
   RESET;