I've managed to fix the problem, basically my checks to see whether the files existed weren't working properly, I've changed it to a simpler

if (-e $tmp)  {
            $picfilename = "".$AGENT."-".$AGENTid.".jpg"; print ("$pic
+filename\n");
            $msg->attach(
                Type     => 'image file/jpg',
                           Path     => $tmp,
                           Filename => $picfilename,
                           Disposition => 'attachment');
        }
[download]

I've also altered where it creates the extra parts to the e-mail, so for each property it creates an e-mail, adds each part in the loop if the file exists and then sends the e-mail. Thanks very much for your help, I'm glad I managed to find the monks, especially after the amount of times I've been getting stuck in my learning recently!