in reply to Problem with Image Uploads

From a quick scan, you might want to open the file for writing :)
open(PFILE, ">$photodir") || die "Cannot open image file for writing - + $!";

.02

cLive ;-)