#! perl -slw
use strict;
use Math::Random::MT qw[ rand ];

sub R(){ rand( 0xFFFFFFFF ) }

our $N ||= 1000;

my $t = 0;
for ( 1 .. $N ) {
    $t += unpack '%32b*', pack 'V', R & R & R & R & R;
}

 print $t / $N;
__END__
C:\test>junk7
1.029
C:\test>junk7
1.019
C:\test>junk7
1.014
C:\test>junk7
1.031
C:\test>junk7
0.985
C:\test>junk7
0.964