△▲　WebProg 初心者の質問 Part7　▼▽

Perl初心者スレのレベルに追いつけてないので
こっちで質問させてください

&jcode::convert(\$line, "sjis", "euc");
これの$lineに
サブルーチンの中の、
print <<EOF;　　　　EOF
までの間を代入したいんですけど、どうしたらできますか
cgiから吐き出すhtml（EUCで書いた）をシフトJISに変換させて
出力したいでのす