Win32::Console does the trick nicely.

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!";
[download]

--
Ryan Koppenhaver, Aspiring Perl Hacker
"I ask for so little. Just fear me, love me, do as I say and I will be your slave."