my $sqlstatement=("UPDATE servers SET nicl_driver_version = '$driver' WHERE '$field1' = '$servlist'");

##</code><code>##

use DBI;
use strict;

my $DSN='Database';
my $field1 = 'Server';

my $dbh=DBI->connect("dbi:ODBC:$DSN", "admin", "") 
   or die "$DBI::errstr\n";

my $sth = $dbh->prepare(
   "UPDATE Servers 
    SET nic1_driver_version= ? 
    WHERE '$field1' = ?" );

#Open file for reading
open(INPUT,"file.txt") || die;
while (<INPUT>) {
 chomp;
 my ($servlist, $driver)=split(/,/);
 $sth->execute($driver,$servlist) or die;
}
close (INPUT);
$dbh->disconnect;