#! perl
use strict;
use warnings;
use Data::Float qw( float_hex hex_float );

my $n = 1 / 7;
my $h = float_hex($n);
my $d = hex_float($h);

print "fraction =    $n\nhex      = $h\ndecimal  =    $d\n";

##</code><code>##

14:46 >perl 538_SoPW.pl
fraction =    0.142857142857143
hex      = +0x1.2492492492492p-3
decimal  =    0.142857142857143

14:47 >