my $i = 5.999999999999999;
print unpack "i", pack "i", $i; # 5