#!/usr/bin/perl
print "Content-type:text/html\n\n";

$pierwsza="Pierwszy tekst";  # zmiennej pierwsza przypisano wartosc
                             # Pierwszy tekst
$x=4;                        # zmienna x ma wartosc 4
$y="11";                     # zmienna y jest typu tekstowego
$z=$x+$y;                    # tu konwersja y do wartosci 11 i dodanie do x
print $z,"\n";               # tu wynik 15
print "$z \n";               # tu tez 15, lecz zaszla konwersja liczby 15
                             # na tekst 15
$msg=<<_BOT_;
A tu dluzszy tekst
W dodatku formatowany liniami
Znajdzie sie on w zmiennej msg
Az do wystapienia _BOT_ na poczatku
wiersza, tak jak nizej
_BOT_

print "$msg \n";             # dla sprawdzenia

@liczby = (1,3,7,9,5);                  # tu wektor z liczbami
@teksty = ("to","kolejne","slowa");     # tu wektor z ciagami tekstowymi
@mieszacz = (3,"ops",7,5,"pech");       # tu mieszany

print $teksty[0],"\n";                       # pierwszy element
$mieszacz[7]="osmy";         # zwiekszamy liczbe elementow wektora
print "Wektor mieszacz ma teraz indeksy od $[ do $#mieszacz\n";
$#mieszacz=3;                # skracamy wektor
print "A teraz do $#mieszacz\n";

%miszung=@mieszacz;         # tworzymy tablice asocjacyjna
print "Wartosc jest $miszung{7}\n";        # wyswietlimy element o kluczu 7
$miszung{mama}="tata";    # dodamy pare klucz-mama wartosc-tata