$SIG{INT} = sub { our $sigint_gotten = 1;};

# Later in the code

if(our $sigint_gotten){
    our $sigint_gotten = 0;
    deal_with_it($arg1, $arg2, ...);
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.