http://www.perlmonks.org?node_id=971926


in reply to Re^2: Signal Handling
in thread Signal Handling

Well, often what you want to do is something like:

$SIG{INT} = sub { our $sigint_gotten = 1;}; # Later in the code if(our $sigint_gotten){ our $sigint_gotten = 0; deal_with_it($arg1, $arg2, ...); }