#!C:/perl/bin
use DBI;
$dbhandle = DBI->connect("dbi:ODBC:address");
$sqlstatement="DELETE * FROM emp WHERE address='I'";
print "Content-type: text/html \n\n";
$statementhandle = $dbhandle->prepare($sqlstatement);
$statementhandle->execute || die "
Could not execute SQL statement ...
";
print "
Executed ...
";
$dbhandleandle->disconnect();
$statementhandle->finish();