使用Perl将一个目录的内容移动到另一个目录

Question

是否可以使用来自File :: Copy或任何其他perl模块的Perl移动功能来替换

system("mv -f /../directory1/* /../directory2/");

OR

替换像

这样的代码

#!/usr/bin/perl -w
use strict;
use warnings;
use File::Copy;

my $dir1= "/..path../directory1";
my $dir2="/..path../directory2";

opendir  DH, $dir1;
while(my $file = readdir DH)    {
    move "$dir1/$file" , "$dir2/$file";
    }
closedir DH;

我想要做的是使用一些Perl模块将所有内容从directory1移动到directory2，而不是为它编写代码。

探索使用简单perl线的可能性，可能就像，

move ("directory1/*","directory2/" ) ;  using some perl module.