$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();

my $dbh = DBI->connect($DB_DSN);

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

&close_sql; #END MSSQL

$dbh->disconnect();

sub open_sql                
               
               
       #SQL öffnen
{
    $dbh = DBI->connect($_[1]);
    $sth  = $dbh->prepare($_[0]);
    $sth->execute;
}
sub close_sql { $sth->finish(); $dbh->disconnect();}            #SQL schliessen....

use DBI;
use DBD::ODBC;
use strict; 

my $dbh = DBI->connect('dbi:ODBC:driver={SQL Server}; server={192.168.0.118}; database=TWIXGAMS');
my $sth  = $dbh->prepare("SELECT Feld32,ID FROM READY2 WHERE bearbeitet is NULL");
$sth->execute;
while (my  $result = $sth->fetchrow_hashref() )
{
           print "$result->{'ID'}\n";
           my $sth3 = $dbh->prepare("UPDATE READY2 SET bearbeitet=1 WHERE ID=?") or die $dbh->errstr();
           $sth3->execute($result->{'ID'}) or die $dbh->errstr(); 
           $sth3->finish();
           print "erledigt"; exit;
}

$sth->finish();$dbh->disconnect();