Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$n = length($testp);
$s = 2*$n;
print ("Hex 0x",unpack("H$s", $testp), "\n");

Hex 0x3238393330
Hex 0x300515

Hex 0x007102
Hex 0x300515