} else {
	open(ERRLOG, ">>$errorlog") or warn "scrapping error output\n";	
	eval { die "($!)"; };
		if ($@) { 
			print ERRLOG "Cannot delete dir $_ : $@!\n"; 
		}
	}