sub WinSetConsole {
	return $WIN32CONSOLE if $WIN32CONSOLE;
	require Win32::Console;
	import Win32::Console;
	{
		local *STDERR;
		open STDERR, ">/dev/null";
		$WIN32CONSOLE = Win32::Console->
		new(Win32::Console->STD_INPUT_HANDLE);
	}
	return $WIN32CONSOLE;
}