#!/usr/bin/perl
use strict;
use warnings;

open(RANDOM, '>', 'random.dat') or die $!;
print RANDOM (int( rand 31415926535 ) + 1), "\n" for 1 .. 50_000;