print header;

my $pierwszy = param('Tf_1');
my $drugi = param('Tf_2');
my $akapit = param('Ta_1');

my $wyrazenie = "UPDATE demo SET
    pierwszy = '$pierwszy',
    drugi = '$drugi',
    akapit = '$akapit'";

my $dbh = DBI->connect('DBI:mysql:demo', 'uzytkownik', 'haslo');
my $sth = $dbh->prepare($wyrazenie);
    $sth->execute;
    $sth->finish;
    $dbh->disconnect;

print "O, zadziaao";

