Select Code to Download

sub sqlInsert {
  my($self, $table, $data) = @_;
...
    if ($@) {croak ($@ . "\nSQL: $sql\n" . Dumper(\@_));}
    return $retval;
}

sub createNewAccount {

...
  $self->sqlInsert('user_accounts',$fields);    
  $self->sqlCommit;
}