#!/usr/bin/perl -w use strict; use LWP::Simple; use XML::RSS; my @rss_urls = qw(http://www.fvbaptist.org/stomp/backend/stomp.rdf http://www.fvbaptist.org/blogs/library/index.rdf); print <My Syndicated News HEADER for (@rss_urls) { my $data = get($_); my $rss = new XML::RSS; $rss->parse($data); for my $item (@{$rss->{'items'}}) { print "

{'link'}\">$item->{'title'}

\n"; print "

$item->{'description'}

\n"; } } print "";