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

##</code><code>##

...
$asn->prepare("
FooQuestion ::= SEQUENCE {
    trackingNumber INTEGER,
    question       IA5String
}
") or die($asn->error);

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

##</code><code>##

{C} > test
0&#8252;Ç&#9786;&#9827;&#9830;&#9835;Anybody there?
$VAR1 = \{
            'question' => 'Anybody there?',
            'trackingNumber' => 5
          };