#! /usr/bin/perl -w
# Setup includes
use strict;
use XML::RSS;
use LWP::Simple;
# Declare variables for URL to be parsed
my $url2parse;
# Get the command-line argument
my $arg = shift;
# Create new instance of XML::RSS
my $rss = new XML::RSS;
# Get the URL, assign it to url2parse, and then parse the RSS content
$url2parse = get($arg);
die "Could not retrieve $arg" unless $url2parse;
$rss->parse($url2parse);
#
# Print the channel items
print "\n";
print "\n";
print " \n";
print " RSS feed\n";
print "\n";
print "\n";
print " \n";
foreach my $item (@{$rss->{'items'}}) {
next unless defined($item->{'title'}) && defined($item->{'link'}) && defined($item->{'description'});
print "\t- {'link'}\">$item->{'title'}
$item->{'description'}
\n";
}
print "
\n";
print "\n";
print "\n";