sub Rooter{
my $neid = 2923;
my ($NB_TS,$NBvpi,$NBvci,$NBpcr,$pvc);
my ($query,$sth,$sth1,$execu,$newdata,$ds,$summe);

$query = "SELECT ID,NEID,VPI,VCI,PCR,PVC,IP FROM NB WHERE NB.NEID='$neid' ORDER BY  RC_CISCO_NB.ID DESC LIMIT 1 "; 
$sth = $dbh->prepare($query) or die "Error in query prepare: $DBI::errstr\n";
$sth->execute or die "Error executing query: $DBI::errstr\n";
if($newdata = $sth->fetchrow_hashref){
if (($newdata->{NEID} eq ($neid)))
               
 {
        
               
 #NODEB Daten Gleich 
            
               
 print " GLEICHE NB\n";
               $query="UPDATE GATE_STATE SET TS_LastChange=NOW() WHERE NEID='$neid' ORDER BY TS_LastChange DESC LIMIT 1;";
               $sth= $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
               $sth->execute or die "Querry Error execute: $DBI::errstr\n";
               $sth->finish()
               
 } 
    $sth->finish();              &n
bsp;     
}