コンソールに print する色を指定

Shibuya.pm に登録されているブログから発見しました。
トラックバックするのもおこがましいか〜などと思っていたら、参考にさせて頂いたURLを紛失orz
まんまサンプルをパクお借りしてはいるのですが〜そのまま貼っつけるわけには………

デバックとかで役に立ちそう☆

use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;

print BOLD GREEN "OK\n";
print BOLD RED   "NG\n";