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

# Later in the code

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