#!/usr/bin/perl -w

use strict;
use XML::RSS;

my $rss = new XML::RSS;
$rss->parsefile("hulk.rdf");

# print the title and link of each RSS item
foreach my $item (@{$rss->{'items'}}) {
	print "title: $item->{'title'}\n";
	print "link: $item->{'link'}\n\n";
}

# output the RSS 0.9 or 0.91 file as RSS 1.0
$rss->{output} = '1.0';
print $rss->as_string;

