Select Code to Download

        sub add_company {
           my ($self,$data) = shift;
...
           $self->{ _dbh }->commit if ! $self->{ _error };
           return $return;
        }