+sub makehead{
+ $fontname_en = $form->param('fontname-en');
+ $fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g;
+ $fontname_ja = $form->param('fontname-ja');
+ $fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g;
+ utf8::decode($fontname_ja);
+ if($fontname_en eq ""){
+ $fontname_en = "Untitled";
+ }
+ if($fontname_ja eq ""){
+ $fontname_ja = $fontname_en;
+ }
+ open FH, ">:utf8", "$TEMPDIR/$HEADER_FILENAME";
+ print FH <<"EOT";