);
}
$dbh->disconnect;
else {
$sth->finish( );
$dbh->disconnect();
print $reply;
sub send_message {
my ($mes,$message,$smsid)=@_;
-