Doesn't appear so

http://cpansearch.perl.org/src/RAZINF/Term-InKey-1.04/Term/InKey.pm

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;
}
[download]

Good point. Thanks.

If that causes problems for you, then you can always fix it to:

open STDERR, '>', 'NUL';
[download]

Or take it up a notch with File::Spec::Win32:

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;  
}
[download]