C:\_32\pscrpt>perl -le "print $];"
5.024000

C:\_32\pscrpt>perl -V:archname
archname='MSWin32-x86-multi-thread-64int';

C:\_32\pscrpt>perl -V:nvtype
nvtype='double';

C:\_32\pscrpt>type try.pl
use warnings;
use strict;

my $x = 0;
for( 1..100 ) {
    $x += 0.01;
    print "$x\n" if length $x > 4;
}

C:\_32\pscrpt>perl try.pl
0.810000000000001
0.820000000000001
0.830000000000001
0.840000000000001
0.850000000000001
0.860000000000001
0.870000000000001
0.880000000000001
0.890000000000001
0.900000000000001
0.910000000000001
0.920000000000001
0.930000000000001
0.940000000000001
0.950000000000001
0.960000000000001
0.970000000000001
0.980000000000001
0.990000000000001

C:\_32\pscrpt>