Select Code to Download

use strict;
use warnings;
...

print "The time to stop waiting has been reached. Your input was not d
+etected.\n";
print "Better luck after seeking the wisdom of the monks.\n";

Go ahead, make my day ...

...
32

Good job.

H:\sandbox>perl capture_mouse_events.pl
Perl version v5.32.0 running on Win10 Build 18363 (64-bit).
...
Better luck after seeking the wisdom of the monks.

H:\sandbox>