Select Code to Download

use strict;
use warnings;
...
  find($crFind, ("$sDir/")) if -d $sDir;
};
print '' . join("\n", sort @aModules) . "\n";