Is there a way to catch that Sig and control processing?
Yes. Add this to your program:
local $SIG{ BREAK } = sub { print "Try harder sucker!" };;
As far as I am aware, there are four trappable signals in Perl under win32:
- 21 - SIGBREAK. Generated from the keyboard by ^break.
- 2 - SIGINT. Generated from the keyboard by ^C.
- 3 - SIGQUIT.
- 15 - SIGTERM.
Also the pseudo-signals __WARN__ and __DIE__.
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.