$decodedImage = MIME::Base64::decode($image);
	$smallImage="c:\\temp\\image.bmp";
	
	open(bmp,">$smallImage");
	binmode(bmp);
	print bmp  "$decodedImage";
	close(bmp);