Try to use a module File::NCopy. Its functionalty is very similar to cp UNIX/Linux command.

use File::NCopy;

$file = File::NCopy->new(recursive => 1);

$file->copy($dir1, $dir2); # Copy $dir1 to $dir2 recursively
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);