davido++! very nice. I was working on something like this but never got around to finishing it. Too bad because I knew that someone would do it eventually :)

Something that you might be able to add: if the terminal supports it you can add the correct escape sequences to get some green color like so:

# there may be some others but these are the ones I know of
if($ENV{TERM} =~ /linux|xterm|xterm-color|vt220|ansi/) {
     $color = 1; 
}

# assuming $char is the character you are about to print
$char = "\33[0;32m$char\33[0m" if $color;
[download]

\33[ is the escape 0;<nn>m is the color (32 is green 30 - 39 seem to be the only ones that work) the \33[0m at the end returns it to the default white.

Hope you find that interesting :)