In addition to the suggestion for File::Copy you could use the system move command:

opendir (DIRHANDLE, $OLDDIR);

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

closedir (DIRHANDLE);
[download]

Just a diffrent way to do it.
Greg W