unless (open (QTREES, $file))  {
    print STDERR "WARNING: get_qtrees() can't open $file for filer $filer!\n";
    return;
};

##</code><code>##

open my $QTREES, '<', $file or die "WARNING: get_qtrees() can't open '$file' for filer $filer!: $!\n";