local $SIG{__DIE__} = sub {
  my $err = shift;
  if (ref($err)) {
    die $err;
  }
  else {
    throw Exception::Unknown (error => $err);
  }
};