jcode.plがいる
ベタテキストで日本語表示って出来なかったのね(汗
あちこちで利用されているjcode.plを利用する必要あり。
サンプルコード
#!/usr/bin/perlrequire './jcode.pl';
$JAPANESE = "日本語表示";
&jcode'convert(*JAPANESE,'euc');
$|=1;
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;CHARSET=euc-jp">
<META HTTP-EQUIV="expires" CONTENT="0">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<title>TITLE</title>
</head>
<body>
EOF
printf "Japanese -> %s", $JAPANESE;
print <<EOF;
</body>
</html>
EOF
#よく呪文のように「$|=1」って書いてあるけど、これなんだろう?