Select Code to Download

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

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

my $sth = 
  $dbh->prepare("INSERT into people (fornavn, efternavn, 
...

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