Select Code to Download

## Globbing
opendir(DIR, $inPath) or die$!;
...
foreach my $file (@files) {
    print "$file\n";  ## Lists all the files
}

for(my $file =0; $file<=$#xmlfiles; $file++){ ## $#xmlfiles gives you 
+the last index of the file or length of the array -1
open my $IN, $file or die $!;
...
close($IN);
}
close($OUT);