if (lc($Message) =~ /^db /) {
print "Content-type:text/html\n\n";
print "c=$Message<br>\n";
  $Message = s/^db //;
  $Message = s/^Db //;
  $Message = s/^dB //;
  $Message = s/^DB //;
print "m=$Message";
exit;
}

##</code><code>##

c=Db test4
m=