You might also want to consider using File::Spec to help with formatting the paths properly. I noticed that in the output, the directory seperator in the filename that files is going the wrong way. While this could simply be a typo in posting, it is something to watch out for. Also, as others have noted, it would be better to use File::Copy instead of shelling out of Perl to use Windows 'move'.