use strict;
use warnings;
use IO::CaptureOutput qw/capture_exec/;
use Win32::Console;
use vars qw($CONSOLE $attr);
$CONSOLE = Win32::Console->new(STD_OUTPUT_HANDLE);
$attr = $CONSOLE->Attr(); #get current console colors
	
$CONSOLE->Attr($FG_WHITE | $BG_BLACK); #wht text on blk
print "white\n";
$CONSOLE->Attr($FG_GREEN | $BG_BLACK); #grn text on blk
print "green\n";

my ($stdout, $stderr, $success, $exit_code) = capture_exec( "dir" );

$CONSOLE->Attr($FG_WHITE | $BG_BLACK); #grn text on blk
print "white\n";