my $dbh = DBI->connect("DBI:mysql:$host", $user, $pass) ||
    die "Could not connect: $DBI::errstr\n";

##</code><code>##

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

##</code><code>##

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;