sub header { print "Content-type: text/html\n\n"; print <<"EOM"; <html> <head> <META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS"> <meta http-equiv="Cache-control" content="no-cache"> # ←これを追加 <title>$title</title> EOM print "$css" if($mv_mode eq 'pc'); print "</head>\n<body $body>\n"; }