You need to prepend the directory name to your file. This works for me:

    move("$directory/$file", $newlocation) || die "could not move file
+s: $!\n";
[download]