Select Code to Download

use File::Remove qw(remove);
remove \1, "dir";

use strict;
use warnings;
...
    print "\nDone:  Purged $purgecnt directories\n";

 }