Try/Catch Keyboard Interrupt in Perl?

Question

How can I catch a keyboard interrupt in Perl?

while(1) {
    try {
        print 1;
    } 
    catch KeyboardInterrupt {
        print 2;
    }
}

Answer 1

You appear to be trying to write Python here.

"Keyboard interrupt", most likely means SIGINT. You can handle signals using the %SIG hash. For example:

$SIG{INT} = sub { print "Received SIGINT\n" };