The "nicer" solution was to do:

eval {
  local $SIG{EVILSIG} = sub { die "EVILSIG\n" };
  # ...
};

die $@ if $@ and $@ ne "EVILSIG\n";
[download]

japhy -- Perl and Regex Hacker