Help for this page

Select Code to Download

Select or download this

use Modern::Perl qw/2014/;

open my $OUT, '>', './random.txt' or die "Could not open the output fi
+le: $!";

say $OUT 91200000000 + int( rand(100000000) ) for 1 .. 1000;