order    <---  table name
-------
seq      <---  primary key, autonumber
item
desc
qty
date_time
user

##</code><code>##

# Make Database connection
$db = new Win32::ODBC("DSN=$DATA_SOURCE_NAME;
                       UID=$USER_ID;PWD=$PASSWORD;")
     or die Win32::ODBC::Error();

# Test Variables
$new_item = "Test";
$new_desc = "Test description";
$new_qty = 2099;
$new_user = "TESTUSER";
# get current time
$now_time = gmtime; 
$new_seq = 0;

# Insert row into database
if ($db->Sql("INSERT INTO order VALUES 
                    ($new_seq,'$new_item', '$new_desc', $new_qty,'$now_time','$new_user')" ))
   {
   # Print out any ODBC/SQL error
   print $db->Error();
   }
# Close the database               
$db->Close();