I would suggest using File::Copy::Recursive to transfer directories (or File::NCopy if you wish) recursively, File::Dircmp to verify if everything was copied properly, and File::Path to remove source tree.

And I also know that there should be an easier way to do it...