use Win32::Console;

...

my $saved = \&Win32::Console::DESTROY;
*Win32::Console::DESTROY = sub{ };
my $CONSOLE = Win32::Console->new(STD_OUTPUT_HANDLE);
END{ $saved->( $CONSOLE ); }