$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