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 =…