Select Code to Download

use File::Glob qw(bsd_glob);

...
for my $file (@files) {
    print "Processing '$file'\n";
};