my $dec  = sprintf hex('0x10000a0f'), "\n";