#!/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;