#!/usr/local/bin/perl

$usage .= "$0 - build DND tree by neighbour-joining from MSPcrunch output\n";
$usage .= "\n";
$usage .= "Usage: $0 [<MSPcrunch files>]\n";

while (@ARGV) {
    last unless $ARGV[0] =~ /^-/;
    $opt = lc shift;
    die "$usage\nUnknown option: $opt";
}

while (<>) {
    @f = split;
    $f[4] = uc $f[4];
    $f[7] = uc $f[7];
    if (!defined($
}
