update <tablename> set <fieldname>=<value> where <conditions>
delete from <tablename> where <conditions>
or
insert into <tablename> (<field1>,<field2>) values(<value1>,<value2>)

##</code><code>##

sub db_connect
{
$DSN = "foo";

if (!($db = new Win32::ODBC("dsn=bar;uid=user;pwd=pass")))
        {
        print "Error connecting to $DSN\n";
        print "Error: " . Win32::ODBC::Error() . "\n";
        exit;
        }
}

sub do_query 
{
# reads from a var called $SQL
if ($db->Sql($SQL))
        {
        print "SQL failed. \n";
        print "Error: " . $db->Error() . "\n";
        $db->Close();
        exit;
        }
}