Have you looked at the Term::ANSIColor documentation? The first line reads

print color('blue');
[download]

Maybe you can change that to your needs.

You cannot ask the terminal for the current color though, if that is what you need.