# (untested) use strict; use warnings; use File::Copy::Recursive qw(dirmove); my $dir= "c:/startdir"; my $dir2="c:/mlx"; if (dirmove($dir1,$dir2)) { print "MOVED DIRECTORY [$dir1] TO [$dir2]\n"; } else { print "[Error] UNABLE TO MOVE DIRECTORY [$dir1] TO [$dir2] - [$!]\n"; }