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