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();


##</code><code>##

  DB<151> say ~0
18446744073709551615

  DB<152> say "of course" if (~0 > 18446744073709551614)
of course

  DB<153> say "of course" if (18446744073709551616 > ~0)

  DB<154> say 18446744073709551616
1.84467440737096e+19