#!/usr/bin/perl -l

# $wynik = losuj_calkowita( $dolny_zakres, $gorny_zakres )
# $wynik = losuj_calkowita( $gorny_zakres )
# $wynik = losuj_calkowita
#     Zwraca liczbe calkowita w zakresie od $dolny_zakres do $gorny_zakres.
#     Zwraca liczbe calkowita w zakresie od 1 do $gorny_zakres.
#     Zwraca 0 lub 1.
sub losuj_calkowita {
    my ( $dolny_zakres, $gorny_zakres ) = @_;

    # Ustawienie domyslnych wartosci.
    $dolny_zakres = 0 unless defined $dolny_zakres;
    $gorny_zakres = 1 unless defined $gorny_zakres;

    # Sprawdzenie poprawnosci zakresow.
    ($dolny_zakres,$gorny_zakres) = ($gorny_zakres,$dolny_zakres) if $dolny_zakres > $gorny_zakres;

    return $dolny_zakres + int( rand( $gorny_zakres - $dolny_zakres + 1 ) );
}

# Rzut kostka.
print ($kostka = losuj_calkowita 6);

# Rzut moneta.
print ($moneta = randint);

# Wybor stacji radiowej na fali od 500 do 1800 kHz
print ($stacja = 10 * randint 50, 180);

