opendir (DH,$backup_weekly_subdir) or die "Can't open dir $backup_weekly_subdir: $!\n";