http://www.perlmonks.org?node_id=996920


in reply to How do I copy an empty directory?

Although hominid's solution makes a lot of sense, here's another option:

use strict; use warnings; use File::Copy::Recursive qw/ dirmove /; dirmove( 'x:\this\directory\name\is\empty', 'c:\temp\empty' ) or die $ +!;