sub error_page {
print $query->header;
print <<"EOM"
...
EOM
}