C:\Users\peter.jones\Downloads\TempData\perl>perl pm.pl
Perl version v5.30.0
more text could go here

Your mouse has 5 buttons
calling input method!
An Event was detected! number= 6
event: 2
event: 42
event: 48
event: 1
event: 32
event: 0

##</code><code>##

my $save = $IN-> Mode;
END { $IN-> Mode( $save )};
$IN-> Mode(( $save | 0x0010 ) & ~0x0040 ); # +MOUSE, -QUICK_EDIT

##</code><code>##

C:\Users\peter.jones\Downloads\TempData\perl>perl pm.pl
Perl version v5.30.0
more text could go here

Your mouse has 5 buttons
calling input method!6(2 42 47 0 32 1)
An Event was detected! number= 6
event: 2
event: 42
event: 48
event: 1
event: 32
event: 0