1..50
ok 1
ok 2
ok 3
ok 4
not ok 5 # 0.100000000000000005551115123125783
not ok 6 # -0.100000000000000005551115123125783
not ok 7 # 0.100000000000000005551115123125783
not ok 8 # -0.100000000000000005551115123125783
not ok 9 # 10.0099999999999997868371792719699
ok 10
ok 11

##</code><code>##

$a = 0.1; "$a";
print $a eq "0.1"     ? "ok 5\n"  : "not ok 5 # $a\n";

##</code><code>##

#   Failed test '  <SOFTPKG>'
#   at t/basic.t line 83.
#                   '<SOFTPKG NAME="Big-Dummy" VERSION="0.0100000000000000002081668171172169">

[...]

#     doesn't match '(?m-xis:^<SOFTPKG NAME="Big-Dummy" VERSION="0.01">)'

##</code><code>##

./perl -e "$a=> perl -e '$a = 0.1; print "$a\n";' 
0.1

##</code><code>##

> ./perl -e '$a = 0.1; print "$a\n";' 
0.100000000000000005551115123125783