Help for this page

Select Code to Download

Select or download this

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

Select or download this

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