# code to open ERRLOG here
eval {
	die "There's no way around this!";
};

if ($@) {
	print ERRLOG "Caught: $@!\n";
}

##</code><code>##

if (rmdir ($_)) {
	open(LOG, ">>$logfile") or warn "discarding logfile output\n";
	print LOG "Directory: $_ - has been deleted.\n";
	close (LOG) or warn "Can't close: $!";
} else {
	warn "Cannot delete directory: $_ ($!)";
}