3 lines
116 B
Perl
3 lines
116 B
Perl
|
use Crypt::Random::Source qw/get_weak/; # Alternately get_strong
|
||
|
|
print unpack('L*',get_weak(4)), "\n" for 1..10;
|