my $x = unpack('h*', 'abcdef1234567890abcdef1234567890');
print "$x\n";
my $y = pack('h*', $x);
print "$y\n";