Select Code to Download

$dbh = DBI->connect($dsn, $user, $pass, { RaiseError => 1, AutoCommit 
+=> 0 });
        #Here we open a locked access to the database 
        my $select_handle;
...
            ###CODE
         $dbh->do("COMMIT WORK");  
        };

WARNING:  there is already a transaction in progress