$SIG{__DIE__} = sub {
    my @stack;
    my $i = 0;
    while(my($package, $file, $line) = caller($i++)) {
      push @stack, "  package $package, file $file, line $line\n";
    }
    die @_, @stack;
};