#!/usr/local/bin/perl -w


if(!(@ARGV) || grep(/help/i, @ARGV)){
    print "hint: to make 10 data in range 0-100,\n rnd.pl 100 10 > result.txt\n";
    exit 0;
} else {
    ($range, $number)=@ARGV;
    srand(time | $$);
    for($i = 0; $i < $number; $i++) {
        printf STDOUT "%d\n", $range * rand();
    }
}
exit 0;