BEGIN {
  $SIG{__DIE__} = sub {
      my $string = shift;
      chomp($string);
      my ($package, $file, $line) = caller;
      confess "$string\n" if
         ((defined ($^S)) and not $^S);
  }
}