将当前目录下的内容复制到另一个目录中的perl代码

#!/usr/bin/perl
use warnings;
use strict;
use File::Copy::Recursive qw(dircopy);
dircopy("./util","./test") or die $!