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);}