while (my $row = $get_sth->fetchrow_hashref) {
            if ($row->{messagetext} && $row->{messagehtml}) {
                if ($debug == 1) {
                    $row->{recipient} = 'webdev@naplesrentals.com';
                    $msgcnt++;
                }
                my $status = 'sent';
                my $message = new MIME::Lite(
                    To => $row->{recipient},
                    From => $row->{sender},
                    Subject => $row->{subject},
                    Type => 'multipart/alternative');
                $message->attach(Type=>'text/plain',
                             Data=>$row->{messagetext});
                $message->attach(Type=>'text/html',
                                 Data=>$row->{messagehtml});
                $upd_sth->execute($status, $row->{messageid});
                $message->send_by_sendmail or logmsg('Warning');
                logmsg("Delivered message: MessageID: " . $row->{messageid});
            } else {
                $upd_sth->execute('error', $row->{messageid});
                logmsg("Invalid message: MessageID: " . $row->{messageid} . " Next!");
            }
        }