$string = pack("H*",15);  
 print "$string\n";                 #prints some weird symbol
 print unpack("H*",$string),"\n";   #prints 15