Help for this page
use warnings; use strict; ... for (@files){ copy $_, $to_dir or die $!; }
->in($from_dir) ->maxdepth(0); # descend zero levels below root of $from_dir