DB<100> \%SIG
 => do {
  my $a = {
    __DIE__  => sub { ... },
    __WARN__ => sub { ... },
    ABRT     => undef,
    ALRM     => undef,
    BUS      => sub { ... },
    CHLD     => undef,
    CLD      => undef,
    CONT     => undef,
    FPE      => "IGNORE",
    HUP      => undef,
    ILL      => undef,
    INT      => sub { ... },
    IO       => undef,
    IOT      => undef,
    KILL     => undef,
    NUM32    => undef,
    NUM33    => undef,
    NUM35    => undef,
    NUM36    => undef,
    NUM37    => undef,
    NUM38    => undef,
    NUM39    => undef,
    NUM40    => undef,
    NUM41    => undef,
    NUM42    => undef,
    NUM43    => undef,
    NUM44    => undef,
    NUM45    => undef,
    NUM46    => undef,
    NUM47    => undef,
    NUM48    => undef,
    NUM49    => undef,
    NUM50    => undef,
    NUM51    => undef,
    NUM52    => undef,
    NUM53    => undef,
    NUM54    => undef,
    NUM55    => undef,
    NUM56    => undef,
    NUM57    => undef,
    NUM58    => undef,
    NUM59    => undef,
    NUM60    => undef,
    NUM61    => undef,
    NUM62    => undef,
    NUM63    => undef,
    PIPE     => undef,
    POLL     => undef,
    PROF     => undef,
    PWR      => undef,
    QUIT     => undef,
    RTMAX    => undef,
    RTMIN    => undef,
    SEGV     => 'fix',
    STKFLT   => undef,
    STOP     => undef,
    SYS      => undef,
    TERM     => undef,
    TRAP     => undef,
    TSTP     => undef,
    TTIN     => undef,
    TTOU     => undef,
    UNUSED   => undef,
    URG      => undef,
    USR1     => undef,
    USR2     => undef,
    VTALRM   => undef,
    WINCH    => undef,
    XCPU     => undef,
    XFSZ     => undef,
  };
  $a->{SEGV} = $a->{BUS};
  $a;
}