use Win32::Console;

$out = new Win32::Console(STD_OUTPUT_HANDLE);

$out->Attr($FG_YELLOW | $BG_BLUE);

$out->Write("Hello, World!")
        or die "couldn't write!";