$dbh->do(
  qq{INSERT INTO tabelle (Feld1,Feld2,Feld3,Feld4) VALUES(?,?,?,?)},
  undef,
  $wert1,
  $wert2,
  $wert3,
  $wert4
);

perldoc DBI

my $sth = $dbh->prepare(qq{INSERT INTO tabelle (Feld1,Feld2,Feld3,Feld4) VALUES(?,?,?,?)});
$sth->execute($wert1,$wert2,$wert3,$wert4);

#!/usr/bin/perl

use warnings;
use strict;
use CGI;
use DBI;

my $obj = new CGI;

my $dbh = DBI->connect ( "DBI:Pg:dbname=test1", "postgres", "sonderbar" )
   or die "Keine Verbindung mit der DB!\n";
   
my $vorname  = $obj->param ( "vorname"  );
my $nachname = $obj->param ( "nachname" );
my $strasse  = $obj->param ( "strasse" );
my $plz      = $obj->param ( "plz" );
my $wohnort  = $obj->param ( "wohnort" );
my $email    = $obj->param ( "email" );

$dbh->do ( "INSERT INTO test1 VALUES ( '$vorname', '$nachname', '$strasse', '$plz', '$wohnort', '$email' )" );

print $obj->header ( "text/html" ),
      $obj->start_html ( -title => "Bestätigung" );
     
print $obj->h3 ( "Das haben Sie eingegeben! \n" );
print $obj->h5 ( $vorname, " ", $nachname );
print $obj->h5 ( $strasse );
print $obj->h5 ( $plz, " ", $wohnort );

print $obj->end_html;

$dbh->disconnect();

exit;

$dbh->do( qq{INSERT INTO kunde (v_name, n_name, strasse, plz, wohnort, email) VALUES(?,?,?,?,?,?)},
 $vorname,
 $nachname,
 $strasse,
 $plz,
 $wohnort,
 $email
);

$rows = $dbh->do($statement, \%attr, @bind_values) or die...

$dbh->do( qq{INSERT INTO kunde (v_name, n_name, strasse, plz, wohnort, email) VALUES(?,?,?,?,?,?)},
undef,
$vorname,
$nachname,
$strasse,
$plz,
$wohnort,
$email
);