use strict;
use warnings;
use File::Copy::Recursive qw/ dirmove /;

dirmove( 'x:\this\directory\name\is\empty', 'c:\temp\empty' ) or die $!;