A quick look through CPAN shows a few modules that could do the trick, including File::Repl and File::Xcopy. You could also do the quick and dirty thing and just do a system call to xcopy.