Select Code to Download

use File::Spec qw/splitdir/;
my @files = glob "*/*/*";
...
  # Do something to $file using these vars and a module to
  # get/set tags
}