use strict ; use warnings ;

  sub die_handler {
    open FH, ">&1";
    print FH "die_handler: ", @_ ;
  } ;

  $SIG{__DIE__} = \&die_handler ;

  close STDERR ;
  open STDERR, '<', \'' ;

  die "Oh shoot !" ;