our $console = Win32::Console->new(STD_OUTPUT_HANDLE); our $CurrentConsoleColor = $console->Attr; our $BackgroundColor = $CurrentConsoleColor & (BACKGROUND_RED|BACKGROUND_BLUE|BACKGROUND_GREEN|BACKGROUND_INTENSITY);