フォームからの受け取り値が多くて、
未記入は漏れなく許さない形にすると、if文の荒しになります。

if( $hage 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";
}
if( $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";
}
...

と延々書いていくしかないんですか。非効率的な気がします。