Its good that you've added error checking, but you need to do better. Something like

my (@useful) = ( "$File::Find::name, -d", "$dir.$_" );
move(@useful)
  or die "ERROR: move(", map( {qq"($_)"} @useful ), ") failed: $!";
[download]