$data = pack("H*",$data);
print "$data\n";