use strict;
use warnings;
use IO::Handle;
use Win32::Console;

my $CONSOLE = new Win32::Console(STD_OUTPUT_HANDLE);
my $save_attr= $CONSOLE->Attr;

my $caption_attr= 10;  # bright green on black

sub print_color ($@)
 {
 my $color= shift;
 STDOUT->flush();
 $CONSOLE->Attr ($color);
 print @_;
 STDOUT->flush();
 $CONSOLE->Attr ($save_attr);
 }

print_color ($caption_attr, "Hello ", 42, " world.\n");