use strict ;
use CGI qw(param);
use diagnostics ;

sub init {
# Constants
my $db = "edb";
my $server = "localhost";
my $user = "localuser";
my $password = "localpasswd";


# CGI Parameters
my $Id = param("ID");
my $Fname = param("Fname");
# Connect to database
$dbh->{RaiseError} = 1;
my $dbh = DBI->connect("DBI:mysql:$db:$server", $user,$password);

if (! $dbh) {
	print "Could not connect to $db on $server\n";
}
# Prepare and run the query
my $query="INSERT INTO clients values( \"$Fname\",\"$Id\") ;";

my $sth = $dbh->prepare_cached("$query") or die "Can't prepare statement: $dbh->errstr \n";
$sth->execute or die "Can't execute statement", $dbh->errstr ;

$sth->finish;
$dbh->disconnect();
	
} # End 
int();