RosettaCodeData/Task/Random-number-generator-device-/Perl/random-number-generator-device--2.pl

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