Perl - Recursive copy for directory

#!\c:\Perl
use File::Copy::Recursive;

my $file1='D:/Wipro/PerlDiaBackup2/oops';
my $file2='d:/test';
File::Copy::Recursive::dircopy $file1, $file2 or die "Copy failed: $!";