#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI; # zaladuj pakiet CGI
$query = new CGI; # $query nowy obiekt typu CGI
$imie = $query->param('imie_f'); # za zmienna imie podstaw wartosc imie_f
# odczytana i zdekodowana z formularza
$nazwisko = $query->param('nazw_f'); # podobnie nazwisko
print "Content-type: text/html\r\n\r\n"; # okresl typ danych na HTML
print "Imie: $imie
\n"; # wyswietl oba pola
print "Nazwisko: $nazwisko\n";