#!/usr/bin/perl
use strict;
use warnings;
use XML::RSS::LibXML;
my $rss = XML::RSS::LibXML->new;
$rss->channel(title => "Foo Bar", link => "http://example.com/");
$rss->add_item(
title => "Entry 1",
link => "http://example.com/1",
description => "Foo bar",
content => { encoded => "OMG This is content" },
);
$rss->add_item(
title => "Entry 2",
link => "http://example.com/2",
description => "Foo bar 2",
content => { encoded => "OMG This is content 2" },
);
print $rss->as_string;