#!/usr/bin/perl

print <<EOF;
Content-type: text/xml

<query>
<response>
<result>error</result>
<comment>DomainKeys checks are currently not available.</comment>
</response>
</query>
EOF