dieharder.pl

#!/usr/bin/perl

#
## Test Perl's pseudorandom number generator with `dieharder`.
#

# usage:
#       perl dieharder.pl > rand.txt && dieharder -g 202 -f rand.txt -a

use 5.014;
use strict;
use warnings;

my $seed  = srand();
my $count = 1e6;
my $bits  = 32;

print <<"EOT";
#==================================================================
# generator lcg  seed = $seed
#==================================================================
type: d
count: $count
numbit: $bits
EOT

my $max = 2**$bits;

for (1 .. $count) {
    say int(rand($max));
}