#!/usr/bin/perl
#
use strict;
use warnings;
use Data::Dumper;


# read an RSS 2.0 file
use XML::RSS;
my $rss = new XML::RSS (version => '2.0');
$rss->parsefile($ARGV[0]);
print "<b><u>",$rss->channel->{title},"</u></b><br/<br/>\n";
#print Dumper $rss->channel;
#print Dumper $rss->items;

foreach my $item (@{$rss->items}) {
	print "<a href=\"",$item->{guid};
	print "\">",$item->{guid},"</a>: ";
	  print	$item->{pubDate}," ";
	  print $item->{author}," on ";
	  print $item->{title},". ";
	  if (defined($item->{description})){
	  	print $item->{description};
	  }
	  print "<br/>\n";
	#print Dumper $item;
}
print "<br/>\n";