3 lines
237 B
Perl
3 lines
237 B
Perl
use Crypt::Random::Seed;
|
|
my $source = Crypt::Random::Seed->new( NonBlocking => 1 ); # Allow non-blocking sources like /dev/urandom
|
|
print "$_\n" for $source->random_values(10); # A method returning an array of 32-bit values
|