why not system?

my @arguments = ("cp", "-rp", "$source_dir", "$destination_dir");
system(@arguments);
[download]

You could also use File::NCopy, which is mentioned in the directories Q and A.