#!/usr/bin/perl
use strict;
use warnings;
use CGI;

# Tworzenie obiektu CGI
my $query = CGI->new;

# Pobranie danych z formularza
my $imie = $query->param('imie') || '';
my $nazwisko = $query->param('nazwisko') || '';
my $wiek = $query->param('wiek') || '';
my $plec = $query->param('plec') || '';

print "Content-type: text/html\n\n";

if ($imie && $nazwisko && $wiek && $plec) {
    # Zapis do pliku
    open my $fh, '>>', '/path/to/data.txt' or die "Nie można otworzyć pliku: $!";
    print $fh "$imie:$nazwisko:$wiek:$plec\n";
    close $fh;

    print "<html><body><p>Dane zostały zapisane. Dziękujemy!</p></body></html>";
} else {
    print "<html><body><p>Błąd: Wypełnij wszystkie pola.</p></body></html>";
}