foreach (@image){
my $image=Image::Magick->new();
$image->Read($_);
$image->Write(substr($image->Get('filename'), 0, length($image->Get('filename'))-4).".gif");
}				

##</code><code>##

my $rawData = pack 'H*', $data->{BackImg};
print $q->header(type=>'image/gif', Content_Length=>length($rawData)).$rawData;
if($blob ne $rawData){die $rawData."\nlength=".length($rawData)."\nfile image = ".$blob."\nlength=".length($blob);}