#!/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<br>\n";			# wyswietl oba pola
print "Nazwisko: $nazwisko\n";
