open(IN, ">/home/images/$image_name") or die "Can't open: $!";             
binmode IN;
	while (<$image_full>) {
	print IN;
	}
	close IN or die "Can't close: $!";
}