sub handle_error {
            my $errortext = shift;
            my $handle   = shift;
            my $dbh;
            my  $dbh = $handle->{'Database'};