sub main {
    if (@ARGV < 3) {
USAGE:
        print STDERR ("Usage: $0 low high samples [seed]\n");
        exit 1;
    }
    my ($lo, $hi, $samples, $seed) = @ARGV;
    goto USAGE if ($lo > $hi || $samples <= 0);
    $seed = srand() unless (defined($seed));
    srand($seed);

    my $range = $hi - $lo + 1;
    while ($samples-- > 0) {
        printf("%d\n", $lo + int(rand($range)));
    }
}
main();