use DBI ;
sub spTest {
my (@id) = (1,2,3,4) ;
my %attr = () ;
my $dbh = connectDB();
my $SQL="DELETE FROM <tablename> WHERE id = ?";
my $st = $dbh->prepare($SQL) ;
#my $seq;
$dbh->bind_param_array(1, \@id, \%attr);
#$st->execute() or debug("Couldn't execute statement: " . $st->errstr);
$st->execute_array(\%attr) ;
}