opendir (DIRHANDLE, $OLDDIR);

while ($oldname = readdir(DIRHANDLE))
{
	chomp $oldname; 
	
	$filename = "$OLDDIR\\$oldname";
	$newname = "$DIR\\$oldname";
	
	if (-f $filename) 
        {
               	
		system("move", $filename, $newname);
	}
}

closedir (DIRHANDLE);