$float= unpack "f", pack "L", 0x428C0000;
# $float is 70
$float= sprintf("%lx", unpack "L", pack "f", 70 );
print $float; # print 428C0000

##</code><code>##

$is_not_hex = unpack "L", pack "f", 70 ;