open QTREES, $file or do {
    print STDERR "WARNING\n";
    return;
}