if ($Message =~ /db (.*)/i){
   print "Content-type:text/html\n\n",
         "c=$Message<br>\n",
         "[m=$1]\n";
   exit;
}