$dbh->{RaiseError} = 0 ; # don't raise exception on error
$dbh->{PrintError} = 1 ; # print errors to console

$cursor->execute($region_id) or warn $DBI::errstr, "\n" ;