sub DieHandler {
    print STDERR "Died: @_\n\n";

    print STDERR "Backtrace:\n\n";
    my $count = 0;
    while( $count > -1 ) {
        my ($package, $filename, $line, $sub) = caller($count);
        last unless defined $line;
        printf STDERR "%02i %5i %-50s %-20s\n", $count++, $line, $sub, $filename;
    } # while

    die "\nDied\n";
} # DieHandler