open STDERR, '>', 'NUL';

##</code><code>##

sub WinSetConsole {
        return $WIN32CONSOLE if $WIN32CONSOLE; 
        require Win32::Console; 
        import Win32::Console;
        {                  
                require File::Spec::Win32;
                my $devnull = File::Spec::Win32->devnull();
                local *STDERR; 
                open STDERR, '>', $devnull;
                $WIN32CONSOLE = Win32::Console-> 
                new(Win32::Console->STD_INPUT_HANDLE); 
                } 
                return $WIN32CONSOLE;  
}