#!/usr/bin/perl

use Crypt::Random;
use Crypt::Random::Generator;

my $gen = new Crypt::Random::Generator Strength => 0;
print $gen->integer(Upper => 100), $/;