This line:

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

will try to move (for example) a file named foo.bar, -d to a file \mlx\foo.bar, -d. Are you really sure that you have files that have , -d at the end of their filename?

Also, File::Find::find wants some directories to search, so you should give it some.