Select Code to Download

open(my $fh, $namefile) or die "$namefile: $!";
while (<$fh>) {
    rename ($_, "testfile$_") or warn "rname $_: $!";
}
close($fh);

opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
my @files = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir(DIR);
...
   chomp $name;
   rename($_, $name) or warn "rename: $_ : $!";
}