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))&& ($newdata->{TS} eq ($NB_TS)))
               
 {
        
               
 #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;     
}