my $dbh = DBI->connect($foo,$bar,$baz,{AutoCommit=>1}) 
  or &Error(1);

my $sth = $dbh->prepare($SQL_TEXT) 
  or &Error(2,$SQL_TEXT);