Select Code to Download

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

#!/usr/bin/perl -w
use strict;            
...
    }
}