move("$directory/$file", $newlocation) || die "could not move files: $!\n";