Select Code to Download

 
foreach my $file (@the_files) {move ($here, $there)}

 
foreach my $file (@the_files) {move ($here . '/' . $file, $there . '/'
+ . $file)}