my $sth = 
  $dbh->prepare("INSERT into people (fornavn, efternavn, 
                                     cpr, adresse, zip, 
                                     city, tjenestested) 
                 values ($fornavn, $efternavn, $cpr, 
                         $adresse, $zip, $city,   
                         $tjenestested"))
  || die $dbh->errstr;

$sth->execute || die $dbh->errstr;
$sth->finish  || die $dbh->errstr;