I'm using Win32::Console for my console output. I have one .pl file (this is main) calling few other .pl files. The subs are scattered across the files. I'm using following code snippet using the module wherever I need to print something to console. The object is created once obviously in the main script.

$CONSOLE = Win32::Console->new(STD_OUTPUT_HANDLE); #in main
$attr = $CONSOLE->Attr(); # Get current console colors
$CONSOLE->Attr($FG_RED | $BG_BLACK); # red text on black
print "Hello world!\n";
$CONSOLE->Attr($attr); # Set console colors back to original
[download]

But I'm not seeing the colored outputs when the print command is in a sub which is in one of the called files. The print from the sub in the main file is working. I'm using the latest ActivePerl community edition.