To clarify what roboticus means by "the chdir function", run the command "perldoc -f chdir" and read its output. In your code, instead of doing:  $cd=`cd $directory`; you actually want to do this:

chdir $directory;
[download]