Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
for my $dir(@dir) {
    print glob "\"$dir/*\"\n";
}