Select Code to Download

my $dbh11 = DBI->connect("dbi:ODBC:driver={SQL Server};Server=$dbserve
+r;database=$DBName;",$uid,$pwd, {AutoCommit => 1, RaiseError=>1, Hand
+leError=>\&HandleDBError})
        or die "Can't connect to $dbserver/$DBName:  $DBI::errstr";
DBI->trace(9,"dbiDOtrace.log");
...
    
    $dbh11->disconnect();
    print LOGFILE "Done exec\n";

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