#!/usr/bin/perl

use XML::RSS;

use strict;
use warnings;

my $rss = XML::RSS->new (version => '2.0');
$rss->channel(title          => 'Example Corp, Inc',
              link           => 'http://example.com',
              language       => 'en',
              description    => 'a one-stop-shop for all your Linux',
    );

$rss->add_item(title => "GTKeyboard 0.85",
               permaLink  => "http://example.com/1999/06/21/93.html",
               description => 'blah blah',
               dc => {
                   creator => 'an author',
                   contributor => 'an editor',
               },
    );

print $rss->as_string;

exit(0);

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>

<rss version="2.0"
 xmlns:blogChannel="http://backend.userland.com/blogChannelModule"
>

<channel>
<title>Example Corp, Inc</title>
<link>http://example.com</link>
<description>the one-stop-shop for all your Linux</description>
<language>en</language>

<item>
<title>GTKeyboard 0.85</title>
<description>blah blah</description>
<guid isPermaLink="true">http://freshmeat.net/news/1999/06/21/93.html</guid>
</item>
</channel>

##</code><code>##

my $rss = XML::RSS->new (version => '2.0',
                         'xmlns:dc'=>"http://purl.org/dc/elements/1.1/",
    );

##</code><code>##

my $rss = XML::RSS->new (version => '2.0',
                         namespaces => { 'xmlns:dc'=>"http://purl.org/dc/elements/1.1/" },
    );