if($hage eq "" || $aage eq "" ){
print "Content-type: text/html\n\n";
print "<html><head><title>未記入です。</title></head>\n";
print "<body>\n";
print "<p>未記入です。</p>\n";
print "</body></html>\n";
exit;
}