:
___________________________________________________
$query = "SELECT STATE.NEID FROM STATE ";

$sth = $dbh->prepare($query)|| die "Querry Error prepare: $DBI::errstr\n";

 $execu= $sth->execute||die "Querry Error execute: $DBI::errstr\n";


if (State.NEID =Root.NEID ) { print "True\n";}
Elese {Insert Into STATE (" STATE.NEID" where STATE.NEID="2329"}

print "ID:$newdata->{NEID}
       }
 
 $sth->finish();