Select Code to Download

# code to open ERRLOG here
eval {
    die "There's no way around this!";
...
if ($@) {
    print ERRLOG "Caught: $@!\n";
}

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