#=== Top portion
#!/usr/bin/perl -w

use strict;
use DBI;
use CGI;

#=== rest of code
$tmpStr = "INSERT INTO employee (EMPLOYEE.ID, EMPLOY.FIRST.NAME, EMPLOY.LAST.NAME, ADDRESS.LINE.1, ADDRESS.LINE.2, ADDRESS.LINE.3) " .
	                       "VALUES ('1000', '".$q->param("EMPLOY.FIRST.NAME")."', '".$q->param("EMPLOY.LAST.NAME")."', '".
	                       $q->param("ADDRESS.LINE.1")."', '".$q->param("ADDRESS.LINE.2")."', '".$q->param("ADDRESS.LINE.3")."')";
	    $queryObj = $db_handle->prepare($tmpStr);
	    $queryObj->execute or die "Could not execute command";