my $sth = $dbh->prepare ($query) or die "Can't prepare Query: $DBI::errstr\n";
my $rv = $sth->execute or die "Can't execute query: $DBI::errstr\n";
my $sth = $dbh->prepare ($query) or die "Can't prepare Query: $DBI::errstr\n";
my $rv = $sth->execute or die "Can't execute query: $DBI::errstr\n";