#!/usr/bin/perl -l

# $result = randint( $low, $high )
# $result = randint( $high )
# $result = randint
#     Return an integer between $low and $high.
#     Return an integer between 1 and $high.
#     Return either 0 or 1.
sub randint {
    my ( $low, $high ) = @_;

    # Set the default alternatives.
    $low = 0 unless defined $low;
    $high = 1 unless defined $high;

    # Make sure that they're in order.
    ($low,$high) = ($high,$low) if $low > $high;

    return $low + int( rand( $high - $low + 1 ) );
}

# Roll a die.

print ($roll = randint 6);

# Flip a coin.
print ($heads = randint);

# Pick a radio station (North American A.M. band, 500-1800
# multiple of 10).
print ($station = 10 * randint 50, 180);