my ($oldpath, $newpath, $line);
open (WORKFILE, "c:\\temp\\work.txt");
while ($record = <WORKFILE>) {
   $oldpath = "c:\\olddir\\$record";
   $newpath = "c:\\newdir\\$record";
   rename("$oldpath", "$newpath");
}
close(WORKFILE);