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

die "Hide me!\n";