Select Code to Download

my $directory = File::Spec->catfile(my @path, my $directoryTest);

my $directory = File::Spec->catfile(@path, $directoryTest);

use strict;
use warnings;
...
foreach my $file (@file) {print "$file\n";}

closedir DIR;             #close directory