文字コードをUTF8にするフィルターをかます場合

use strict;
use HTML::Template;
use Jcode;

my $t = HTML::Template->new(
  filename => 'my.t',
  filter   => sub { Jcode::convert(shift,'utf8') },
);

だそう。便利。

詳しくはこちら：http://d.hatena.ne.jp/charsbar/20051229/1135864604