Select Code to Download

my @files = `ls Data_files/*/Data.txt`;
chomp @files;

foreach my $filename(@files){
    chomp $filename;