$dbh2 = DBI->connect($DB_DSN);
$dbh3 = DBI->connect($DB_DSN);
$dbh4 = DBI->connect($DB_DSN);

&open_sql("SELECT Feld32,ID FROM READY2 WHERE bearbeitet is NULL",$DB_DSN); #Start MSSQL
while (  $result = $sth->fetchrow_hashref() )
{
            $x++;
            $ID=$result->{'ID'};
            print "$ID\n";
            $sth3 = $dbh3->prepare("UPDATE READY2 SET bearbeitet=1 WHERE ID=$ID");
            $sth3->execute; $sth3->finish();
            print "erledigt";
            exit;
}

&close_sql; #END MSSQL

$dbh2->disconnect();
$dbh3->disconnect();
$dbh4->disconnect();