Select Code to Download

%files = Recurse([$drive], {match => '\.'});

    foreach $dir (sort keys %files)
    {
...
        # Do work
      }
    }