#******************CODE*********************
#!/usr/local/bin/perl -wT

use strict;
use CGI;
use DBI;

my $cgi = new CGI;
my $fornavn = $cgi->param("fornavn");
my $efternavn = $cgi->param("efternavn");
my $cpr = $cgi->param("cpr");
my $adresse = $cgi->param("adresse");
my $zip = $cgi->param("zip");
my $city = $cgi->param("city");
my $tjenestested = $cgi->param("tjenestested");

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

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

$dbh->disconnect;

print "Done\n";