Why didn't you use File::Copy to advoid the system call?

use File::Copy;
#code removed
move($file,$dir);
[download]

----
Zak
Pluralitas non est ponenda sine neccesitate - mysql's philosphy