random_number.pl

#!/usr/bin/perl -w

#use strict;

for( $a=0; $a < 100; $a = $a + 1 ){
    my $random = int rand(10000);
    print "$random ";
}