my $hex = unpack 'H*',pack('N',$decimal);