Select Code to Download

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

foreach my $file (@the_files) {
    move ($here, $there) 
        or die "something weird happened moving '$here' to '$there': $
+!\n"
}