Select Code to Download

use File::Path;
use File::Copy;
...
            if not -d "$pparent/$path/images";
    copy ("$GraphicsDirectory/$line", "$pparent/$path/images/$line");
}