in reply to Double clicking a raw mode Win32::Console app

You could ignore the events you don't want.
for (;;) { my @event = $Console->Input(); last unless ... }

Or you could use InputChar instead.

$Console->InputChar(1);