Replace:

my $sth = $dbh->prepare(INSERT into people (fornavn, efternavn, cpr, a
+dresse, zip, city, tjenestested) values ($fornavn, $efternavn, $cpr, 
+$adresse, $zip, $city, $tjenestested)); 
$sth->execute(); 
$sth->finish();
[download]

with

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

-- Randal L. Schwartz, Perl hacker