Exit during the signal handler:

$SIG{__DIE__} = sub {
  my $msg = shift;
  # This calls the real die
  die "What I really want to see";
};

die "Hide me!\n";
[download]