my $sth = $dbh->do(q{
    INSERT INTO people (fornavn, efternavn, cpr, adresse, zip, city, tjenestested)
    VALUES (?, ?, ?, ?, ?, ?, ?, ?)
  }, undef,
  $fornavn, $efternavn, $cpr, $adresse, $zip, $city, $tjenestested);