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

   # do something here ...

   $SIG{INT} = $save_handler || ''; # assign handler back if true, else ''

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

##</code><code>##

qwurx [shmem] ~ > perl -wle '$SIG{BLORF} = undef'
No such signal: SIGBLORF at -e line 1.

##</code><code>##

   my $save_handler = $SIG{INT} || '';