#!c:/perl/bin

use DBI;

$dbhandlle = DBI->connect("dbi:ODBC:address");

$sqlstatement="INSERT INTO emp (firstname, lastname, address)VALUES ('A', 'T', 'I')";

print "Content-type: text/html \n\n";

$statementhandle = $dbhandlle->prepare($sqlstatement);

$statementhandle->execute || die "<br><br>Could not execute SQL statement ... <br>";
print "<br>Executed ...<br><br>";

$dbhandlleandle->disconnect();
$statementhandle->finish();