use Win32::Console;
my $console = new Win32::Console || die "Couldn't create object: $!\n";
my $attr = $console->Attr();
# ... do s'more stuff...