Select Code to Download

use warnings;
use strict;
...
for (@files){
    copy $_, $to_dir or die $!;
}

->in($from_dir)
->maxdepth(0);   # descend zero levels below root of $from_dir