use strict;
use Win32::ODBC;

    my $DNSName = <YOURDSNNAMEHERE>;
    my $insert = new Win32::ODBC("DSN=$DSNName;UID=<DBUSERNAME>;PWD=<PASSWORD>") || die "Error: " . Win32::ODBC::Error();

  my $sqlstr = "INSERT INTO....<BLAH><BLAH>etc.";

if (!$insert->Sql($sqlstr)){
   #Do Something
}else{
    #Figure out the error and do something else
}