1
2
3
4
5
6

use strict;
use warnings;
use File::Copy::Recursive qw(rcopy);
my $from_dir = ".";
my $to_dir   = "/temp";
rcopy($from_dir, $to_dir);

1
2
3
4
5
6
7

use warnings;
use strict;
use File::Copy::Recursive qw(rcopy);
use Path::Class;
my $from_dir = dir(".");
my $to_dir   = dir("", "temp");
rcopy($from_dir, $to_dir);