use Win32::Console;
my $cons = new Win32::Console STD_INPUT_HANDLE;