#!/usr/bin/perl -T 
 
use DBI; 
use strict; 
use warnings; 
 
my $dbh = DBI->connect("DBI:SQLite:dbname=baza.db", "", "",  
	{'AutoCommit' => 1, 'PrintError' => 1}) || die "error"; 
 
my $aa = "aaaafefaaaa"; 
my $bb = 'bbbbbbb'; 
 
my $sql = qq{INSERT INTO table}; 
$sql .= qq{ (indexx, a, b)}; 
$sql .= qq{ VALUES(NULL, ?, ?)}; 
 
my $sth = $dbh->prepare($sql); 
 
$sth->execute($aa, $bb) || die "error, $DBI::errstr"; 
 
$sth->finish; 
 
$dbh->disconnect || die "eeeeeeeee: $DBI::errstr";

my $test=$dbh->do($sql, undef, $aa, $bb);

 my %config_vars = (  
					DBName 			=> 'XXXX',  
					DBServerName 	       => 'localhost',  
					DBUserName 		=> 'XXXX',   
					DBPassword 		=> 'XXXX'  
					);  
  
  
my ($dbh, $data_source);  
  
my $dataSource = 'DBI:mysql:' . $config_vars{DBName} . ':' . $config_vars{DBServerName};  
my $dbh = DBI->connect( $dataSource, $config_vars{DBUserName}, $config_vars{DBPassword}, {RaiseError=>1});  
  
# {RaiseError=>1} should capture your errors.  Therefore,  you do not need to have an   
#|| die "error, $DBI::errstr"; for each of your requests to the db.  
  
  
my $insert_ = $dbh->prepare("INSERT INTO table_name (column1, column2, column3) VALUES (?,?)");  
   $insert_->execute($params{'one'}, $params{'two'}, undef);  
   $insert_->finish();	  
  
  
#If the value for a column is null you will use undef as the value.    
#If the column is always NULL, then there is not a need to list it.    
#Just list the columns you want inserted.  Auto increment id's would be a good example of an always NULL or undef.