my $dbh11 = DBI->connect("dbi:ODBC:driver={SQL Server};Server=$dbserver;database=$DBName;",$uid,$pwd, {AutoCommit => 1, RaiseError=>1, HandleError=>\&HandleDBError})
		or die "Can't connect to $dbserver/$DBName:  $DBI::errstr";
DBI->trace(9,"dbiDOtrace.log");
	my $sthExec = $dbh11->do(qq/exec spMyProcedure/) or die "error preparing execute transfers sql";

	
	$dbh11->disconnect();
	print LOGFILE "Done exec\n";

##</code><code>##

SELECT id, col2, col3 from LargeTable
DECLARE @i int
SET @i=1
While @i<1000
BEGIN
UPDATE LargeTable SET col2=getdate() WHERE id=@i
END