#!/bin/perl use Mysql; use strict; use CGI qw(:standard); my $v0 = param('descr'); my $v1 = param('if'); my $v2 = param('value'); my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1}); print header(); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $dbh->do("insert into checks (description,beding,wert) values ('$v0','$v1','$v2')"); print "\n\n";