Select Code to Download

my $out = './data/IDs_created.txt';
open (OUT, ">>$out");
...
    print OUT "$_";
}
close OUT;

use warnings;
use Text::CSV;
...
print "CSV parsed and saved as text file: IDs_created.txt!";
close CSV;
close OUT;

#!/usr/bin/perl
#
...
my $fnames = join '|', map quotemeta, read_file('./data/IDs_created.tx
+t' , qw/ chomp 1 /); 
my @fnames = find( file => name => qr{$fnames}, in => $startdir ); 
copy ($_, $dirTarget.basename ("$_")) for (@fnames);