#!/usr/bin/perl -w
use strict;

my ($testp, $n, $s);

$testp = 0x007102;
$n = length($testp);
$s = 2*$n;
print ("Hex 0x",unpack("H$s", $testp), "\n");

$testp = "\x30\x05\x15";
$n = length($testp);
$s = 2*$n;
print ("Hex 0x",unpack("H$s", $testp), "\n");

##</code><code>##

Hex 0x3238393330
Hex 0x300515

##</code><code>##

Hex 0x007102
Hex 0x300515