my $intr = 0;
   {
      local $SIG{INT};
      $SIG{INT} = sub { $intr++ };

      # do something here ...

   } # end of scope for local handler

   # check value of $intr to see if I was interrupted...