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