From a quick scan, you might want to open the file for writing :)

open(PFILE, ">$photodir") || die "Cannot open image file for writing -
+ $!";
[download]

.02

cLive ;-)