move("$File::Find::name, -d","$dir.$_")