如何使用Perl或shell非递归地迁移目录？

use File::Copy;

my $source_dir = "/path/to/source";
my $destination_dir = "/path/to/destination";

opendir(my $dh, $source_dir) or die "Can't open directory: $!";
while (my $file = readdir($dh)) {
    next if $file =~ /^\.\.?$/; # Skip . and ..
    move("$source_dir/$file", "$destination_dir/$file") or die "Can't move file: $!";
}
closedir($dh);

source_dir="/path/to/source"
destination_dir="/path/to/destination"

for file in "$source_dir"/*; do
    if [ -f "$file" ]; then
        mv "$file" "$destination_dir"
    fi
done