Select Code to Download

local $dbh->{AutoCommit} = 0;
local $dbh->{RaiseError} = 1; 
...
      warn "append failed $@";
      $dbh->rollback;
}

sub append_to_text {
    my $dbh   = shift;
...
        }    
    
}