Hola, disculpame que no te respondí por MP es que me envían muchos y es mejor por aquí ya que otro puede tener la misma problemática...
Para ver si la imagen existe podrías usar
Código:
if (-e "$NombreFichero"){
&error('El archivo ya existe');
} else {
open (IMAGEN, ">$NombreFichero") || &error('Error...');
binmode(IMAGEN);
print IMAGEN $im;
close (IMAGEN);
}
Ahora bien lo de la imagen te lo debería de crear, si no lo hace debe ser por la ruta de acceso erronea o porque el directorio en donde la querés guardar no permite que lo escriban...
Verificá bien esos detalles y avisame...
Saludos