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