Perl XML::RSSの使い方　（UTF8文字化け対策）

XML::RSSを使ってRSSを出力する方法です。
文字化けしたりエラーが出たり、半日格闘しました。
結局、下記のようにスクリプトを書いてutf8で保存するとうまく行きました。

#!/usr/bin/perl

use strict;

use utf8;

binmode STDIN,  ":utf8";

binmode STDOUT, ":utf8";

print "Content-type: application/rss+xml\n\n";

use XML::RSS;

my $rss = XML::RSS->new({version => "2.0" , encode_output => 0});

$rss->channel(

    title => "RSSテスト",

    link => "http://your-domain.com/foo",

    description => "XML::RSS の出力テスト",

);

$rss->add_item(

    title => "1件目の記事のタイトル",

    link => "http://your-domain.com/bar",

    description => "１件目の記事の解説",

);

$rss->add_item(

    title => "２件目の記事のタイトル",

    link => "http://your-domain.com/buz",

    description => "２件目の記事の解説",

);

print $rss->as_string;